VB程序员博客

VB程序开发

代码如下:

      ljm1 = Tex20 & "" & Tex21 & "" & Tex22 & Ch1.Caption
      ljm2 = Tex20 & "" & Tex21 & "" & Tex22 & Ch2.Caption

      Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_cfg"
      Adodc1.RecordSource = "YLRGXX where 连接码 ='" & ljm1 & "'"
      Adodc1.RecordSource = "YLRGXX where 连接码 ='" & ljm2 & "'"
      Adodc1.Refresh
      Set DataGrid1.DataSource = Adodc1
     
      请问各位老师如何实现这个功能!学习~

<
谢谢各位老师了!期待中。。。

标签: ,