谁有 vb使用ADODC连接数据库，登录用户名密码验证的源代码？
使ç¨SQLè¯å¥select * from ä½ çæ°æ®åºå称 where ç¨æ·åæå¯ç ='"+ç»éæ¶çç¨æ·æå¯ç +"'Adodc.Refresh(è¿å¥ä¸å®è¦ï¼ç¨æ¥å·æ°ç¨ç)å¤æAdodc.Recordset.RecordCountçå¼æ¯å¦ä¸º0ï¼ä¸ä¸ºé¶è¯´ææ£ç¡®ï¼å¦åé误ãè¿éåªæä¾äºæè·¯ï¼ç¨æ·åå¯ç çæ¹æ³æ¯ä¸æ ·çã
温馨提示：答案为网友推荐，仅供参考
第1个回答 2013-07-13
'数据库连接部分 db = "数据库文件路径" Dim ConnStr,a
Dim conn dim name,pass
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & db & "; Persist Security Info=False;"
Set conn = CreateObject("ADODB.Connection")
conn.Open ConnStr
If Err Then
Err.Clear
Set conn = Nothing
a = "数据库连接出错，请检查文件中的数据库参数设置。"
End If'数据库连接部分结束 '查询表部分Set rs = CreateObject("adodb.recordset")
sql = "select * from admin" 'admin是表名
rs.Open sql, conn, 1, 1name=rs("name")pass=rs("password")rs.Close
Set rs = Nothing'查询部分结束 是否要这样的？
Dim conn dim name,pass
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & db & "; Persist Security Info=False;"
Set conn = CreateObject("ADODB.Connection")
conn.Open ConnStr
If Err Then
Err.Clear
Set conn = Nothing
a = "数据库连接出错，请检查文件中的数据库参数设置。"
End If'数据库连接部分结束 '查询表部分Set rs = CreateObject("adodb.recordset")
sql = "select * from admin" 'admin是表名
rs.Open sql, conn, 1, 1name=rs("name")pass=rs("password")rs.Close
Set rs = Nothing'查询部分结束 是否要这样的？
