Problema com CONEXION BASE DATOS
Publicado por Rossy (17 intervenciones) el 30/12/2001 23:29:42
Sabes alguien que es este problema y como puedo solucionarlo
Tengo un codigo para una consulta con ADO pero tengo un probleama que no puedo enterder.
EL PROBLEMA ES EN LA APERTURA DE LA CONEXION cn eS LA BARIABLE, aqui recibo un mensaje que dices EL ADMINISTRADOR DE CONTROLADOERS ODBC no se encuentra.
no se que es ayuda por favor.
Option Explicit
Private cn As ADODB.Connection
Private mrs As ADODB.Recordset
Private Sub cmdLista_Click()
Dim rs As ADODB.recorset
Set rs = New ADODB.Recordset
rs.Source = "select*" & _
"from tinve" & _
"where codigo = 'Txtcoo' " & _
"order by codigo,descrip"
Set rs.ActiveConnection = cn
rs.Open
List1.Clear
Do While rs.EOF
List1.AddItem rs.Fields("Codigo") & "" & _
rs.fileds("descrip")
List1.ItemData(List1.NewIndex) = rs.fileds("Clave01")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub
Private Sub Command2_Click()
Dim Consul As String
'abrir un recorset vacio
Consul = "select*" & _
"from tinve" & _
"where clave01=0"
mrs.Source = Consul
Set mrs.ActiveConnection = cn
mrs.AddNew
mrs.Open
mrs.Fields("codigo") = txtCoo.Text
mrs.Fields("descrip") = txtDee.Text
mrs.Fields("descrip") = txtCaa.Text
mrs.Update
mrs.Close
cmdLista_Click
End Sub
Private Sub Command3_Click()
Me.Hide
Tengo un codigo para una consulta con ADO pero tengo un probleama que no puedo enterder.
EL PROBLEMA ES EN LA APERTURA DE LA CONEXION cn eS LA BARIABLE, aqui recibo un mensaje que dices EL ADMINISTRADOR DE CONTROLADOERS ODBC no se encuentra.
no se que es ayuda por favor.
Option Explicit
Private cn As ADODB.Connection
Private mrs As ADODB.Recordset
Private Sub cmdLista_Click()
Dim rs As ADODB.recorset
Set rs = New ADODB.Recordset
rs.Source = "select*" & _
"from tinve" & _
"where codigo = 'Txtcoo' " & _
"order by codigo,descrip"
Set rs.ActiveConnection = cn
rs.Open
List1.Clear
Do While rs.EOF
List1.AddItem rs.Fields("Codigo") & "" & _
rs.fileds("descrip")
List1.ItemData(List1.NewIndex) = rs.fileds("Clave01")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub
Private Sub Command2_Click()
Dim Consul As String
'abrir un recorset vacio
Consul = "select*" & _
"from tinve" & _
"where clave01=0"
mrs.Source = Consul
Set mrs.ActiveConnection = cn
mrs.AddNew
mrs.Open
mrs.Fields("codigo") = txtCoo.Text
mrs.Fields("descrip") = txtDee.Text
mrs.Fields("descrip") = txtCaa.Text
mrs.Update
mrs.Close
cmdLista_Click
End Sub
Private Sub Command3_Click()
Me.Hide
Valora esta pregunta


0