Dim conn As New ADODB.Connection Dim mcc As New ADODB.Recordset Private Sub Command1_Click() Dim strw As String strw = "select * from test" mcc.Open strw, conn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = mcc End Sub Private Sub Form_Load() conn.CursorLocation = adUseClient conn.ConnectionString = "filedsn=sybase.dsn;uid=dba;pwd=sqldkh" conn.Open End Sub我已经建立了连接。想直接修改DataGrid1控件中的数据。如果数据类型为数字则可以, 如数据为字符串则返回失败提示。
Dim mcc As New ADODB.Recordset
Private Sub Command1_Click()
Dim strw As String
strw = "select * from test"
mcc.Open strw, conn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = mcc
End Sub
Private Sub Form_Load()
conn.CursorLocation = adUseClient
conn.ConnectionString = "filedsn=sybase.dsn;uid=dba;pwd=sqldkh"
conn.Open
End Sub我已经建立了连接。想直接修改DataGrid1控件中的数据。如果数据类型为数字则可以,
如数据为字符串则返回失败提示。