Migrar a visual basic.net
Publicado por Jose Luis Martinez (1 intervención) el 27/10/2006 19:07:50
Hola Amigos de la web del programador, espero que me puedan ayudar con una duda que tengo.
Empezando a migrar visual basic 6.0 a Visual Basic.net me surgio una duda de conexion a sql server.
En visual basic 6.0 me conectaba a un servidor sql server de esta manera.
Set conn = New ADODB.Connection
Set reco = New ADODB.Recordset
On Error GoTo error
conn.ConnectionString = "DSN=Telemarketing;database=tmk;PWD=123;UID=prueba;"
conn.Open
With reco
.ActiveConnection = conn
.Source = sql
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
End With
sql = "Select Compania,Contacto,Puesto,Calle_Numero,Colonia,Ciudad,Estado,Codigo_Postal,Telefono,Ext,Movil,Fax,E_mail,Sector,Otro,Producto_Interes,Envasar,Fuente,Otro_f,Atendio,Remesa,Status,Fechacierre,Observaciones,Id,Clave,cantidad,etapa from tbl_clientes where fechacierre >= '" & frm_reportes1.DTPicker1.Value & "' and fechacierre <= '" & frm_reportes1.DTPicker2.Value & "' and aux1 =1 and Status='" & frm_reportes1.Combo1.Text & "'"
reco.Open sql
Mi duda es como puedo hacer este tipo de conexiones en visual basic.net
Espero que me puedan ayudar
Saludos desde Mexico
Empezando a migrar visual basic 6.0 a Visual Basic.net me surgio una duda de conexion a sql server.
En visual basic 6.0 me conectaba a un servidor sql server de esta manera.
Set conn = New ADODB.Connection
Set reco = New ADODB.Recordset
On Error GoTo error
conn.ConnectionString = "DSN=Telemarketing;database=tmk;PWD=123;UID=prueba;"
conn.Open
With reco
.ActiveConnection = conn
.Source = sql
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
End With
sql = "Select Compania,Contacto,Puesto,Calle_Numero,Colonia,Ciudad,Estado,Codigo_Postal,Telefono,Ext,Movil,Fax,E_mail,Sector,Otro,Producto_Interes,Envasar,Fuente,Otro_f,Atendio,Remesa,Status,Fechacierre,Observaciones,Id,Clave,cantidad,etapa from tbl_clientes where fechacierre >= '" & frm_reportes1.DTPicker1.Value & "' and fechacierre <= '" & frm_reportes1.DTPicker2.Value & "' and aux1 =1 and Status='" & frm_reportes1.Combo1.Text & "'"
reco.Open sql
Mi duda es como puedo hacer este tipo de conexiones en visual basic.net
Espero que me puedan ayudar
Saludos desde Mexico
Valora esta pregunta
0