谢谢
谢谢
2006-05-16 22:22
恩,我也想知道这个问题.登陆窗口要连接Access数据库???虚心请教,管理能不能快点回答问题啊!
2006-05-17 23:33
这可以连接上数据库但是就只能在开发机上运行
Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim st As String
Dim filename As String = Application.ExecutablePath()
filename = filename.Substring(0, filename.LastIndexOf("\") + 1)
filename = filename & "chuzu.mdb"
st = " PageTimeout=5;FIL=MS Access;MaxBufferSize=2048;DSN=22;UID=admin;DBQ=" + filename + ";DriverId=25"
Try
cn1 = New OdbcConnection(st)
cn1.Open()
cnflag = True
' MsgBox("连接成功!!")
Catch ex As Exception
MsgBox("连接失败!!!!!!!!!!!!!")
End Try
End Sub
想请教各位大哥,我怎么修改上面的数据库连接,可以达到在任何的电脑上都可以打开数据库
2006-05-21 20:23
我写连接语句都只写:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ..filename..
就好了,楼上的怎么那么麻烦

2006-05-21 22:44
2006-05-22 08:55
2006-05-23 21:40
你是说登陆后怎么让主界面出现吗?
这样话只要
在判断用户名和密码都对的代码下面加上
if
dim frmmiam as newfrmmian
frmmian.show()
me.hide()
else
exit sub
end if
frmmian为你的主界面的name
2006-05-25 12:16
你是说登陆后怎么让主界面出现吗?
这样话只要
在判断用户名和密码都对的代码下面加上
if
dim frmmiam as newfrmmian
frmmian.show()
me.hide()
else
exit sub
end if
frmmian为你的主界面的name
请问 你 运行载入 的 是 密码登陆的窗口吧 ?

2006-05-27 10:26