要下载补丁吗,哪里有下
解决方案 »
- 一组控件移动到了主窗体的右下角,有一部分在主窗体中怎么也看不到了,现在想把那部分控件移动出来,找不到办法,请问如何解决
- 看到很多控件的属性是“设计时不可用运行时只读”,请问这是什么意思?
- 为什么在formload里面使按钮得到焦点就出错?
- 我的软件有Media Player 9.0控件,怎么样可以,在不安装Media Player 9.0时使用,我打包的时候要怎么做
- vb初学者的问题
- 如何让程序只运行一次?
- 请问怎样才能把一个数据库的内容添加到另外一个数据库里啊?由click事件来触发
- 关于~~<行集不支持反向提取>~~的问题!!!
- 如何捕捉SaveFile\OpenFile等通用对话框中“取消”按钮的动作?
- 关于进度条的菜鸟问题。
- ★提倡太极程序人生 www.Emugua.net/taiji★
- 600分求 FlexCell表格控件3.3.3 注册码……
将代码中jet3.51改成jet4.0
将代码中jet3.51改成jet4.0
或者楼主可以在VB里"外接程序"---"可视化数据管理器"里新建数据库和数据表,这样就可以使用data控件,但这样做的一个问题是,不象在access2003里维护数据库那么好,不过如果要求不高的话也可以凑合着用。
1 升级2 改用ADO访问数据库,方法如下:Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
Label1.Caption = rs!ID
Label2.Caption = rs!Memo
End If
rs.AddNew
rs!ID = "编号"
rs!Memo = "备注"
rs.Update
End SubPrivate Sub Form_Load()
cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
"DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
"MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
"Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
cn.Open
'查询字符串可以上这里查
'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
要手工改,不然还是使用的原来的
有可能你选择access2000后还是使用的老引擎
我没有打sp6(打了sp4)是可以调用的
这个问题就只需要安装JET4就可以解决了,相对应的就是从ADO3.5升级到3.6
升级以后几乎所有的属性和方法和原来都一样,除了一个,就是那个数据库压缩的方法名字改了。