datagrid，小女请教大侠们！

Question

我将连接的信息，写到ini文件了。
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=" & Gs_Database & ";Data Source=" & Gs_Server
Adodc1.CommandType = adCmdUnknown
  DataGrid1.AllowAddNew = True
  DataGrid1.AllowDelete = True
  DataGrid1.AllowUpdate = True
  
Select Case dmwhtbl
     Case "pjsdm"
        frmdmwh.Caption = "警示代码维护"
        Adodc1.RecordSource = "select jsdm,jsmc from pjsdm"
        Adodc1.Refresh
        If Adodc1.RecordSet.RecordCount = 0 Then '没有记录
           Adodc1.RecordSet.AddNew
        End If
        DataGrid1.ReBind
        DataGrid1.RowHeight = 300
        DataGrid1.ColumnHeaders = True
        DataGrid1.Columns(0).Caption = "代码(jsdm)"
        DataGrid1.Columns(1).Caption = "名称(jsmc)"
        DataGrid1.Columns(0).DataField = "jsdm"
        DataGrid1.Columns(1).DataField = "jsmc"
        DataGrid1.Columns(0).Width = 1400
        DataGrid1.Columns(1).Width = 3600
     Case "giscssz"
     
End Select
   DataGrid1.Refresh多谢各位！:)

Answer 1

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=" & Gs_Database & ";Data Source=" & Gs_Server   //写到了配置文件了
Adodc1.CommandType = adCmdUnknown  DataGrid1.AllowAddNew = True
  DataGrid1.AllowDelete = True
  DataGrid1.AllowUpdate = True
  
  Select Case dmwhtbl
     Case "pjsdm"
        frmdmwh.Caption = "警示代码维护"
        Adodc1.RecordSource = "select jsdm,jsmc from pjsdm"
        Adodc1.Refresh
        If Adodc1.RecordSet.RecordCount = 0 Then '没有记录
           Adodc1.RecordSet.AddNew
        End If
        DataGrid1.ReBind
        DataGrid1.RowHeight = 300
        DataGrid1.ColumnHeaders = True
        DataGrid1.Columns(0).Caption = "代码(jsdm)"
        DataGrid1.Columns(1).Caption = "名称(jsmc)"
        DataGrid1.Columns(0).DataField = "jsdm"
        DataGrid1.Columns(1).DataField = "jsmc"
        DataGrid1.Columns(0).Width = 1400
        DataGrid1.Columns(1).Width = 3600
     Case "giscssz"
 .....
 End Select
   DataGrid1.Refresh多谢各位！！

Answer 2

加上一句set datagrid1.datasource=adodc1,应该没问题

Answer 3

ADODC1連接設置沒有問題，你的DATAGRID1的DATASOURCE屬性有沒有設置！如沒有可在屬性對話框中設，或在DATAGRID1.ADDNEW語句前加上SET　DAGAGRID1.DATASOURCE=ADODC1!

Answer 4

这种情况下，datagrid属性即使设置了datasource也不行的，因为此时adodc1的连接还没建立，他是写代码建立连接的

Answer 5

哦抱歉，我的意思是，他的datagrid1.datasource不能在对话框里直接设置

Answer 6

有没有用update函数更新到库中

Answer 7

谢谢各位！我的问题已解决了！
尤其感谢cuiyxy(沧海鲨鱼）！