网站搜索引擎用不了求教SQL问题

killer05

学习SQL有个问题是如何用VBA引用SQL表格数据啊是要用ADO吗?比如SQL库做个user表格存储用户名密码 用窗体做登录界面
论坛太多都是存储到ECXEL表格里的 想找个例子是存储到SQL里的例子但是搜索引擎好像用不了 求教了

魂断蓝桥

存储到不同的数据库用的连接字符是不一样的。

比如用accdb做数据库

cn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\FilesData.accdb"

zopey

'联网举例
Str_coon = "Provider=SQLOLEDB;Data Source=DAa-3-2;Initial Catalog=book;Uid=sa;PWD=abc;Persist Security Info=false"
StrSQL = "SELECT max(受理编号) as 最后编号 FROM [受理编号表]"

killer05

魂断蓝桥 发表于 2018-8-23 13:35
存储到不同的数据库用的连接字符是不一样的。

比如用accdb做数据库

感谢老师 我可能表述的问题不清楚吧 比如一个表格里有帐号跟密码 如果不是存储在excel里 而是在SQL表格里例如下列例子

1. Private Sub CommandButton1_Click()                      '按下登录按钮
   
2. With Label3
   
3.     If ComboBox1.Value = "" Or TextBox1.Text = "" Then  '判断用户名是否空白
   
4.         .Visible = True
   
5.         .Caption = "用户名或密码不能为空"
   
6.         TextBox1.SetFocus
   
7.     Else
   
8.         On Error Resume Next
   
9.         If Sheet4.Range("A2:A" & r).Find(ComboBox1.Value, LookIn:=xlValues) Is Nothing Then    '查找用户是否存在
   
10.             rs = MsgBox("用户名不存在,现在立即注册吗?", 1 + 48, "系统提示")
    
11.             Select Case rs
    
12.                 Case vbOK
    
13.                     Unload UserForm1
    
14.                     UserForm2.Show      '显示注册窗口
    
15.                 Case vbCancel
    
16.                     Cancel = False
    
17.             End Select
    
18.         Else
    
19.             If TextBox1.Text = Application.WorksheetFunction.VLookup(ComboBox1.Value, Sheet4.Range("A2:B" & r), 2, 0) Then
    
20.                 nm = ComboBox1.Value: pw = TextBox1.Text           '记录用户名和密码
    
21.                 Application.Visible = True      '密码正确,显示主窗口
    
22.                 Unload Me
    
23.                 UserForm3.Show 0
    
24.             Else
    
25.                 .Visible = True                 '密码错误
    
26.                 .Caption = "密码错误,请重新输入!"
    
27.                 With TextBox1
    
28.                     .SelStart = 0
    
29.                     .SelLength = Len(.Text)
    
30.                     .SetFocus
    
31.                 End With
    
32.                 If c >= 3 Then MsgBox "密码错误次数超过三次,程序关闭", 0 + 32, "系统提示": Unload Me: ThisWorkbook.Close savechanges:=False
    
33.                 c = c + 1
    
34.             End If
    
35.         End If
    
36.     End If
    
37. End With
    
38. End Sub

复制代码

我想用sql库的表格取代Sheet4.Range("A2:A" & r)这样 sql库有id字段user跟PWS字段 取代 不知道可不可以 搜索用不了 所以我想看关于这类的

huang1314wei

给你个例子，自己导入进去就好了

Desktop.rar (25.65 KB, 下载次数: 6)

2018-8-24 08:51 上传

点击文件名下载附件

killer05

huang1314wei 发表于 2018-8-24 08:51
给你个例子，自己导入进去就好了

感谢版主这个是我需要的 希望论坛搜索引擎早点弄好

killer05

zopey 发表于 2018-8-23 15:20
'联网举例
Str_coon = "Provider=SQLOLEDB;Data Source=DAa-3-2;Initial Catalog=book;Uid=sa;PWD=abc;Per ...

感谢你的回复 这个ADO我知道 我用的是自定义函数

1. Public Function Sql_Connet(ByVal strServerName As String, ByVal strDatabaseName As String, ByVal strUid As String, ByVal strPwd As String) As Boolean
   
2. On Error GoTo Err_Set
   
3. Set cn = CreateObject("ADODB.Connection")
   
4. Set rs = CreateObject("ADODB.recordset")
   
5. cn = "Driver={SQL Server};Server=" & strServerName & ";Database=" & strDatabaseName & ";Uid=" & strUid & ";Pwd=" & strPwd
   
6. cn.ConnectionTimeout = 5
   
7. cn.Open
   
8. Exit Function
   
9. Err_Set:
   
10. [h5] = Err.Number
    
11. [h6] = Err.Description
    
12. MsgBox Err.Description
    
13. Err.Clear
    
14. End Function

复制代码

连接的时候用的是

1. Sub 连接SQL()
   
2. With Sheet5
   
3. Call Sql_Connet(.[F1], .[F4], .[F2], .[F3])
   
4. End With
   
5. '[B1] =服务器名称；[B4] =数据库名称,[B2] =sa ； [B3] = 以sa身份登录数据库的密码If cn <> "" Then
   
6. MsgBox "数据库连接成功", vbInformation, "SQL"
   
7. cn.Close
   
8. Exit Sub
   
9. End If
   
10. aa: MsgBox "数据库连接失败", vbInformation, "SQL"
    
11. cn.Close
    
12. Set rs = Nothing
    
13. Set cn = Nothing
    
14. End Sub

复制代码