UC知道vb创建sql数据库
来源：百度知道 编辑：UC知道 时间：2024/06/08 15:52:14
如何用VB创建一个SQL SERVER 数据库 请举个例子，越详细越好
Dim cn As New ADODB.Connection
Dim sr As New ADODB.Recordset
Dim jibie As Integer
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=(我的student表）;Data Source=(你的服务器名字)"
这部分代码是连接数据库，还是建立数据库呢？
Dim cn As New ADODB.Connection
Dim sr As New ADODB.Recordset
Dim jibie As Integer
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=(我的student表）;Data Source=(你的服务器名字)"
这部分代码是连接数据库，还是建立数据库呢？
Dim cn As New ADODB.Connection
Dim sr As New ADODB.Recordset
Dim jibie As Integer
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=(我的student表）;Data Source=(你的服务器名字)"
sr.Open "select * from TABLE1 where 姓名='" & Text1.Text & " '", cn, 1, 3
If sr.EOF = True Then
MsgBox "用户名错误"
Else
If sr!密码 = Text2.Text Then
jibie = sr!级别
If jibie <= "50" Then
Form4.Show
ElseIf jibie = "100" Then
Form2.Show
End If
Else
MsgBox "密码错误"
End If
End If
dim conn as new adodb.connection
dim rs as new adodb.recordset
dim Sqlstr as string
conn.connectionstring="你具体的连接语句"
conn.open
sqlstr="Create DataBase "数据库名"
rs.open sqlstr,conn