Principiante ADODB.Connection

martedì 11 gennaio 2011 - 17.38
Tag Elenco Tags  VB.NET  |  .NET 3.5  |  Windows 7  |  Visual Studio 2008  |  Access (.mdb)  |  Office 2007  |  Firefox

narx Profilo | Newbie

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

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

Ora guardo subito. Grazie mille
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 !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5