问题1.我用建立对象的方式连接数据库(access),记录集通过datagrid显示出来,但怎样让datagrid在添加、删除或修改记录时随时更新,比如我选择了修改条件后,datagrid左侧的箭头(=》)就自动移到要被修改记录的左侧呢?我的修改记录代码如下:
Dim mrc As New ADODB.Recordset
Dim flag As Integer
On Error Resume Next
txtsql = "select * from zb1"
Set mrc = exesql(txtsql)‘调用函数
If mrc.RecordCount > 0 Then
flag = 0
mrc.MoveFirst
Do While Not mrc.EOF()
If Str$(mrc.Fields("日期时间")) = Trim(Str$(moday.Value)) And mrc.Fields("值别") = Trim(cbo1.Text) Then
Exit Sub
Else
mrc.MoveNext
End If
Loop
flag = 1
If flag Then
answer = MsgBox("历史记录中没有找到要修改的对象,请核对设置条件!", 32, "信息提示")
End If
Else
answer = MsgBox("原始表中无历史记录,无对象可修改!", 32, "信息提示")
End If
mrc.Requery
mrc.update
Set mrc = Nothing问题2.怎样将datagrid控件中的数据记录集分页打印出来,分页具体代码如何写呢?问题3.别人写好的控件如何在VB中使用,如何添加进来直接用呢?问题4.将access数据库和mschart控件连接后,用立方体显示数据,如何设置显示出的初始颜色呢?问题5.当第一次在‘甲窗口’中用mschart立方体显示数据后,在关闭此‘甲窗口’时如何断开mschart控件与数据库的连接,以免在第二次以后再打开此窗口时依然显示过去数据的立方体呢?问题6.如何将窗口中多个控件的背景融为一体(设整个窗体有一个大的背景)。比如窗体中的控件包括:命令按钮、选择框、标签框、框架、列表框、组合框、单选钮和滚动条等等。恳请各位楼主帮我解答,THANKS!
Dim mrc As New ADODB.Recordset
Dim flag As Integer
On Error Resume Next
txtsql = "select * from zb1"
Set mrc = exesql(txtsql)‘调用函数
If mrc.RecordCount > 0 Then
flag = 0
mrc.MoveFirst
Do While Not mrc.EOF()
If Str$(mrc.Fields("日期时间")) = Trim(Str$(moday.Value)) And mrc.Fields("值别") = Trim(cbo1.Text) Then
Exit Sub
Else
mrc.MoveNext
End If
Loop
flag = 1
If flag Then
answer = MsgBox("历史记录中没有找到要修改的对象,请核对设置条件!", 32, "信息提示")
End If
Else
answer = MsgBox("原始表中无历史记录,无对象可修改!", 32, "信息提示")
End If
mrc.Requery
mrc.update
Set mrc = Nothing问题2.怎样将datagrid控件中的数据记录集分页打印出来,分页具体代码如何写呢?问题3.别人写好的控件如何在VB中使用,如何添加进来直接用呢?问题4.将access数据库和mschart控件连接后,用立方体显示数据,如何设置显示出的初始颜色呢?问题5.当第一次在‘甲窗口’中用mschart立方体显示数据后,在关闭此‘甲窗口’时如何断开mschart控件与数据库的连接,以免在第二次以后再打开此窗口时依然显示过去数据的立方体呢?问题6.如何将窗口中多个控件的背景融为一体(设整个窗体有一个大的背景)。比如窗体中的控件包括:命令按钮、选择框、标签框、框架、列表框、组合框、单选钮和滚动条等等。恳请各位楼主帮我解答,THANKS!
问题2 查一下csdn上打印的代码
问题3 好像要先注册一下
问题4 我一般不改变系统原先设置的颜色
问题5 在qq上跟你说过了,不知道你弄好了没
问题6 没有必要融为一体,基本上你所说的这些界面不会设置什么大的背景
if recordset.eof then .....问题2 我用的是自已寫的打印控件,你也可以用VBA
问题3 要看一下是公有控件還是私有控件
公有控件,要添加引用
私有控件,就像用Button一樣使用,它的屬性都寫到代碼中了!
问题4 看一下它的屬性,在屬性中改
问题5 設定mschart的數據綁定為nothing
问题6 沒搞明白你的意思