Principiante ADODB.Connection

martedì 11 gennaio 2011 - 17.38

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

narx Profilo | Newbie

3 messaggi | Data Invio: mar 11 gen 2011 - 17:38

Buona sera e un saluto a tutti, sono nuovo del forum, e spero di non postare una castroneria.
Avrei bisogno di inserire dei dati su una tabella MDB
Fino ad ora ono riuscito a creare una nuova riga, ma non capisco come fare a compilare le colonne
(spero non vi offendiate per la banalità )

Posto il codice (Applicazione Console)
-------------------------------------------------
[/code]Module parametri

'Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim command As ADODB.Command
Dim Percorso As String

Public Parametri() As String

Sub Main(ByVal Parametri() As String)
For Numero As Integer = 0 To Parametri.Length - 1
Console.WriteLine("Paramerto" & (Numero + 1) & "=" & Parametri(Numero))
Next

Sub LanciaTM(ByVal Parametri() As String)
'Sub LanciaTM(ByVal mode, ByVal delPlacche, ByVal serial, ByVal lotto, ByVal qta, ByVal sp, ByVal codice, ByVal fornitore, ByVal DiaTipo, ByVal DiaGrana, ByVal mmD, ByVal supUtile, ByVal supTaglio, ByVal mmPerimExt, ByVal dtaProd As String)
Console.WriteLine("Funzione APERTUA: taglio Master")
Console.WriteLine("PlanCode: " & Parametri(1))
Console.WriteLine("Completato:" & Parametri(2))
Console.WriteLine("DataCompl :" & Parametri(2))
Console.WriteLine("qta :" & Parametri(3))
Console.WriteLine("sp :" & Parametri(4))
Console.WriteLine("Codice :" & Parametri(5))
Console.WriteLine("fornitore :" & Parametri(6))

Percorso = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\SERVER2003\Repository\Produzione.mdb;Persist Security Info=True"

cn = New ADODB.Connection
rs = New ADODB.Recordset 'registra riga
command = New ADODB.Command

cn.Open(Percorso)
rs.Open("TABELLA1", cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
rs.AddNew("Colonna1", "scrivo sulla colonna1")
rs.AddNew(2, "scrivo sulla colonna2")

ECC.ECC..

rs.Close()
rs = Nothing

End Sub

End Module
[code]

pieroalampi Profilo | Expert

816 messaggi | Data Invio: mar 11 gen 2011 - 17:53

leggi questo articolo
http://www.mrwebmaster.it/vbnet/guide/approccio-database-vbnet_692.html

------------------------------------------------------
LA PRIMA FRASE DI UN PROGRAMMATORE HELLO WORD ...... ANCHE L'ULTIMA
------------------------------------------------------

narx Profilo | Newbie

3 messaggi | Data Invio: mar 11 gen 2011 - 18:05

Ora guardo subito. Grazie mille

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !