帮这个窗体 - 编程论坛

#2

wp2319572015-05-15 16:08

数据库啊虾米数据库

#3

lianyicq2015-05-15 16:12

回复楼主 wang1992

自己觉得问题在哪儿?

#4

wang19922015-05-15 16:14

回复 2楼 wp231957

数据库是access

#5

wang19922015-05-15 16:16

回复 3楼 lianyicq

只有本站会员才能查看附件，请登录

这是我的编程，运行没反映

#6

lianyicq2015-05-15 16:19

文档中只有图片,没有代码

#7

wang19922015-05-15 16:19

回复 2楼 wp231957

只有本站会员才能查看附件，请登录

#8

wang19922015-05-15 16:22

回复 6楼 lianyicq

只有本站会员才能查看附件，请登录

#9

wp2319572015-05-15 16:25

你最好是把数据库和代码都发出来而不是一味的发神马图片压缩包啥的

#10

lianyicq2015-05-15 16:25

回复 8楼 wang1992

图片上显示两个过程，
两个过程分别定义了两个cnn adors。是想一个过程就把所有操作执行完？

#11

wang19922015-05-15 16:29

回复 9楼 wp231957

只有本站会员才能查看附件，请登录

#12

wang19922015-05-15 16:32

回复 10楼 lianyicq

我把Vb打包发到上面的回复了，你找找看打开就可以真的操作来看了

#13

wang19922015-05-15 16:34

回复 11楼边小白

已经打包发到9楼了

#14

lianyicq2015-05-15 16:52

?哪来的工程文件,人员排班窗口下的DataGrid1是picturebox控件,能显示数据才怪.

#15

wang19922015-05-15 17:01

回复 15楼 lianyicq

没有吧，能在详细点吗

#16

lianyicq2015-05-15 17:15

把控件检查无误了,这个可以打开和显示

程序代码：

Option Explicit
Public conn As New ADODB.Connection
Public AdoRs As New ADODB.Recordset
Public OpenStr As String
Public strSQL As String

Private Sub Form_Load()
  OpenStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\sjk.mdb;" & "Jet OLEDB:Database Password="
  conn.Open OpenStr
  strSQL = "select * from ygxxb "
  AdoRs.CursorLocation = adUseClient
  AdoRs.Open strSQL, conn, 1, 1         '打开记录集
  Set DataGrid1.DataSource = AdoRs
End Sub
Private Sub Combo1_Click()
  AdoRs.Close
  strSQL = "select * from ygxxb where 所属车间='" & Combo1.Text & "'"
  AdoRs.Open strSQL, conn, 1, 1
  Set DataGrid3.DataSource = AdoRs
End Sub

#17

wang19922015-05-15 17:47

回复 17楼 lianyicq

为什么还是不行啊调试错误：对象关闭时，不允许操作