谢谢
谢谢
 2006-05-16 22:22
	    2006-05-16 22:22
  恩,我也想知道这个问题.登陆窗口要连接Access数据库???虚心请教,管理能不能快点回答问题啊!
 2006-05-17 23:33
	    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
	    2006-05-21 20:23
  我写连接语句都只写:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ..filename..
就好了,楼上的怎么那么麻烦

 2006-05-21 22:44
	    2006-05-21 22:44
   2006-05-22 08:55
	    2006-05-22 08:55
   2006-05-23 21:40
	    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
	    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
	    2006-05-27 10:26