Help ME ! set datagrid.datasource= rs 的问题

Question

o 我错啦，我的程序里面没有。rebind   这是我该了的程序

Answer 1

啊，救命阿，rs.CursorLocation=useclient  到底写在什么地方
我放在Rs.Open sqlstring, Con, adOpenKeyset ，adLockOptimistic, adCmdText
的前面一运行win2000就会说XXXX内存只读要我关闭
放在后面又说rs已经打开5555555555555这下完啦
        

Answer 2

Rs.Open sqlstring, Con, adUseClient, adLockOptimistic, adCmdText 
改成这样还是会说  数据库或对象只读

Answer 3

rs.CursorLocation=adUseClient  

Answer 4

Set Con = New Adodc1.Connection
Set Rs = New Adodc1.RecordsetCon.Open "Provider = Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= '" & DataBasePath & "'"rs.CursorLocation=adUseClient  
Rs.Open sqlstring, Con, adOpenKeyset ，adLockOptimistic, adCmdText------报 什么错？ 你的游标 设置 对吗？

Answer 5

是不是 datagrid.update=true？

Answer 6

datagrid.update=true 我的程序不是写了吗？
由标不是在rs.open后面设置了吗？如果不是，到哪里设置阿

Answer 7

Set Con = New Adodc1.Connection
Set Rs = New Adodc1.RecordsetCon.Open "Provider = Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= '" & DataBasePath & "'"rs.CursorLocation=adUseClient  
Rs.Open sqlstring, Con, adOpenKeyset ，adLockOptimistic, adCmdText游标 当然是在 open 前 设置啦。

Answer 8

xxxx指令 应用了xxx内存，该内存为只读，要关闭程序点确定，要调试点取消

Answer 9

Public Sub EditModeX()    ' recordset variables
   Dim rstEmployees As ADODB.Recordset
   Dim Cnxn As ADODB.Connection
   Dim strCnxn As String
   Dim SQLEmployees As String
   
   Set Cnxn = New ADODB.Connection
   strCnxn = "Provider=sqloledb;Data Source=MyServer;Initial Catalog=Pubs;User Id=sa;Password=; "
   Cnxn.Open strCnxn
      
   Set rstEmployees = New ADODB.Recordset
   Set rstEmployees.ActiveConnection = Cnxn
   rstEmployees.CursorLocation = adUseClient
   rstEmployees.CursorType = adOpenStatic
   rstEmployees.LockType = adLockBatchOptimistic
   
    ' open recordset with data from Employee table
   SQLEmployees = "employee"
   rstEmployees.Open SQLEmployees, , , , adCmdTable      rstEmployees.AddNew
        rstEmployees!emp_id = "T-T55555M"
        rstEmployees!fname = "temp_fname"
        rstEmployees!lname = "temp_lname"
        
        rstEmployees.UpdateBatch
        rstEmployees.Close
   
   ' Delete new record because this is a demonstration
     Cnxn.Execute "DELETE FROM employee WHERE emp_id = 'T-T55555M'"    Cnxn.Close
    Set rstEmployees = Nothing
    Set Cnxn = NothingEnd Sub