VB怎么和数据库建立连接呀???我是一个初学者,很多不懂,还请各位多多指点啊.比如说一个软件我数入用户名和密码才可以进去,那么用户名和密码应该是在数据库里存着的.如果我输入的密码和数据库中的吻合便可以进入软件,这个怎样实现呢?
谢谢啦....
谢谢啦....
解决方案 »
- 老婆的电脑坏了, 不知道该怎么搞
- 在IDE里如何后退
- 在vb6.0中,我在textBox1中输入韩文后,跟到程序里边textBox1.Text竟是显示“????”,请问怎莫解决啊(急)。。。
- 定时关闭窗体的问题
- 菜鸟求救!!!关于access和textbox连接的问题
- active reports做数据表,如何小数点对齐?
- run-time error '429' ActiveX Component cant create Object!help!
- 怎么样可以使用XP风格的按钮?急!
- Excel 打印问题 , 设置了打印机的参数 , 但是走纸还是不正确 , vba怎样设置打印机的参数和纸张大小 !
- 关于水晶报表找表的路径的问题!!!!!
- 谁能提供一下好的网格控件给我,顺便问一下谁有FlexCell表格控件的注册名和注册码,可否提供一下
- 我想做一个自定义控制件
On Error GoTo gherr '首先判断程序版本,通过数据库中的edition表来判别
If Len(Trim(Text1.Text)) = 0 Then '首尾空格处理掉
MsgBox "请输入用户名", 32, "提示"
Exit Sub
Else
struser = Trim(Text1.Text) '取用户名
strpass = ghcrypt(Trim(Text2.Text)) '对用户密码加密,以便与密文相比较
End If
If conn.State <> adStateOpen Then
Call mainmoudle.getconn '调用自定义连接函数
End If
'取版本号,取是否显示版本不同的提示,取是否显示短信的提示
If objlogon.getver(strdatabasever, bln) Then
If strprogver <> strdatabasever Then
MsgBox objlogon.UpdatePrompt(bln) '给出提示
If bln Then
Exit Sub
End If
End If
Else
MsgBox "获取程序版本时发生错误!无法检测当前程序是否可以运行!", 32, "提示"
Exit Sub
End If
'下面判断是否显示短信息[如果notetext表中有记录,则显示出来]
If objlogon.shownote(strmessage) Then
MsgBox strmessage, 64, "请阅读:系统发给您的短信息"
End If
'如版本检测通过,则进行用户身份验证
If objlogon.userIdentification(struser, strpass, strUserName, strmessage) Then
g_loginname = struser '将用户名保存到变量中
g_xingming = strUserName
Else
MsgBox "用户登录失败:" & vbCrLf & strmessage
Exit Sub
End If
'下面取登录日期:
g_logindate = getDtDate(DTPicker1)
'下面取服务器名称
g_databasename = objlogon.dbServerName Unload Me
mainform.Show '调主窗体
Exit Sub
gherr:
MsgBox Err.Description
Exit Sub
End Sub
你应该看看ADO 和 DAO的内容
Public Function getlink() As Boolean '连接数据库,正常返回真
'如果不处于连接状态,则进行连接
'conn是全局对象
On Error GoTo gherr
connstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db;Data Source=myserver;Password=0000;address=192.168.1.1,1433;network=dbmssocn;"
If conn.State <> adStateOpen Then
With conn
.ConnectionString = connstring
.ConnectionTimeout = 6
.Open '连接
End With
End If
If conn.State = adStateOpen Then
getlink = True
Else
getlink = False
End If
Exit Function
gherr:
getlink = False
MsgBox Err.Description
End Function