bueneo mi problena es que intento obtenet una lista determinada de datos de una deb de sql2000 ahi todo vien pero el tema es que que cuando pongo la clausula where para que me devuelva los datos de las celdas que sean concidentes me tita error:
este es el code que funciona bien
Código:
Option Explicit
Dim cn As ADODB.Connection
Private Sub Form_Load()
' nueva conexión Ado
Set cn = New ADODB.Connection
With cn
' cursor
.CursorLocation = adUseClient
' Cadena de conexión para Sql Express mediante OLEDB
'''''''''''''''''''''''
.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Integrated Security=SSPI;" & _
"Persist Security Info=False;" & _
"Initial Catalog=MuOnline" & _
";Data Source=127.0.0.1"
.Open ' abre
Dim rs As ADODB.Recordset
' Crear y abrir un Recordse
Set rs = cn.Execute("SELECT Name,cLevel,Resets,LevelUpPoint,Class,Experience,Strength,Dexterity,Vitality,Energy FROM Character ")
' visualiza los datos de la tabla en el datagrid
Set MSHFlexGrid1.DataSource = rs
rs.Close
Set rs = Nothing
End With
End Sub
' Finaliza la conexión
'''''''''''''''''''''''''
Private Sub Form_Unload(Cancel As Integer)
On Local Error GoTo error_Sub
If Not cn Is Nothing Then
If cn.State = adStateOpen Then
cn.Close
End If
End If
Exit Sub
error_Sub:
Debug.Print Err.Number
Debug.Print Err.Description
End Sub
pero si le agrego la clausura me tira error: "El nombre de columna 'black' no es valido"
Código:
Option Explicit
Dim cn As ADODB.Connection
Private Sub Form_Load()
' nueva conexión Ado
Set cn = New ADODB.Connection
With cn
' cursor
.CursorLocation = adUseClient
' Cadena de conexión para Sql Express mediante OLEDB
'''''''''''''''''''''''
.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Integrated Security=SSPI;" & _
"Persist Security Info=False;" & _
"Initial Catalog=MuOnline" & _
";Data Source=127.0.0.1"
.Open ' abre
Dim rs As ADODB.Recordset
' Crear y abrir un Recordse
Set rs = cn.Execute("SELECT Name,cLevel,Resets,LevelUpPoint,Class,Experience,Strength,Dexterity,Vitality,Energy FROM Character WHERE Name = Black ")
' visualiza los datos de la tabla en el datagrid
Set MSHFlexGrid1.DataSource = rs
rs.Close
Set rs = Nothing
End With
End Sub
' Finaliza la conexión
'''''''''''''''''''''''''
Private Sub Form_Unload(Cancel As Integer)
On Local Error GoTo error_Sub
If Not cn Is Nothing Then
If cn.State = adStateOpen Then
cn.Close
End If
End If
Exit Sub
error_Sub:
Debug.Print Err.Number
Debug.Print Err.Description
End Sub
Espero que puedan ayudarme desde ya muchas gracias