este es el code que funciona bien
Código:
pero si le agrego la clausura me tira error: "El nombre de columna 'black' no es valido"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
Código:
Espero que puedan ayudarme desde ya muchas gracias 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