谢谢
谢谢
恩,我也想知道这个问题.登陆窗口要连接Access数据库???虚心请教,管理能不能快点回答问题啊!
这可以连接上数据库但是就只能在开发机上运行
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
想请教各位大哥,我怎么修改上面的数据库连接,可以达到在任何的电脑上都可以打开数据库
我写连接语句都只写:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ..filename..
就好了,楼上的怎么那么麻烦
你是说登陆后怎么让主界面出现吗?
这样话只要
在判断用户名和密码都对的代码下面加上
if
dim frmmiam as newfrmmian
frmmian.show()
me.hide()
else
exit sub
end if
frmmian为你的主界面的name
你是说登陆后怎么让主界面出现吗?
这样话只要
在判断用户名和密码都对的代码下面加上
if
dim frmmiam as newfrmmian
frmmian.show()
me.hide()
else
exit sub
end if
frmmian为你的主界面的name
请问 你 运行载入 的 是 密码登陆的窗口吧 ?