6. Oktober 2009 09:23
6. Oktober 2009 10:59
6. Oktober 2009 14:08
Dim con As New Odbc.OdbcConnection
Dim cmd As New Odbc.OdbcCommand
Dim reader As Odbc.OdbcDataReader
' con.ConnectionString = "DSN=odbc_firma"
con.ConnectionString = "Dsn=Test;csf=Yes;sname=server;ntype=TCP;opt=Text;it=All Except DOT;qtyesno=Yes;ro=No;cc=Yes;be=Yes;cd=No;ml=1031;rd=No;uid=prod;cn=Mandant;server=N"
cmd.Connection = con
cmd.CommandText = "Select * From test-tabelle"
Try
con.Open()
reader = cmd.ExecuteReader()
Do While reader.Read()
NavisionTableAdapter.Insert(reader("Code"), reader("Name"))
NavisionTableAdapter.Fill(DataSet_PlanungAirducProtape.navision)
Loop
con.Close()
reader.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
28. Oktober 2009 15:27
cmd.CommandText = "Select * From ""test-tabelle"""