求助一关于连SQL数据库初级问题！88分啊！

Question

我是初学者啊，求助VB怎么连SQL数据库啊，有代码吗，我看别人做得程序的时候怎么和SQL连上啊，谢谢了啊…………～：～

Answer 1

Ocn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=库名称;Data Source=服务器名称"
rs.Open SQL语句, Ocn, adOpenDynamic, adLockReadOnly

Answer 2

'Sql_Server 连接
Dim connstr
Dim conn
connstr = "Provider=SQLOLEDB;Data Source='192.168.0.222';DATABASE=muonline;UID=mu;pwd=991588"
'connstr = DBconnect.Provider = "SQLOLEDB.1"
'DBconnect.ConnectionString = "DATABASE='muonline';SERVER='192.168.0.222' ;UID='mu';PWD='991588';"'打开
Set conn = CreateObject("adodb.connection")
'Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr'读取
Set rs = CreateObject("adodb.recordset")
sqlstr = "select memb___id from MEMB_STAT where ConnectStat=1"
rs.open sqlstr, conn, 1, 1
tatalrecord = rs.recordcount
msgbox tatalrecord'修改
sql = "update MEMB_INFO set sno__numb=sno__numb-1 where memb___id ='" & Text1.Text & "' "
conn.execute sql'删除
sql2="delete from Character where Name='"&id&"'"
conn.execute(sql2)'添加
set rs2 = Server.CreateObject("ADODB.Recordset")
sql="INSERT INTO MEMB_INFO (memb___id,memb__pwd,memb_name,sno__numb) VALUES ('"&ps_loginname&"','"&ps_password&"','"&ps_nickname&"', '3')"
set rs2=conn.execute(sql)

Answer 3

'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim rs As New ADODB.Recordset, cn As New ADODB.Connectioncn.ConnectionString = "Driver={SQL Server};SERVER=DataServer;DATABASE=zxzx;UID=information;PWD=information*&#"cn.Open
'查询字符串可以上这里查
'http://www.connectionstrings.com/

Answer 4

Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim rs As New ADODB.Recordset, cn As New ADODB.Connection'在MSHFLEXGRID表格控件中显示查询到的内容
Private Sub Command1_Click()
    If rs.State = adStateOpen Then rs.Close
    rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
    Set MSHFlexGrid1.DataSource = rs
End Sub'向数据库中添加数据
Private Sub Command2_Click()
    If rs.State = adStateOpen Then rs.Close
    rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
    rs.AddNew
    rs!UID = txtUid.Text
    rs!PWD = txtPwd.Text
    rs!TRUENAME = txtName.Text
    rs!CREATEDATE = Format(Now, "YYYY/MM/DD")
    rs.Update
    
    Command1.Value = True
End Sub'从数据库中删除数据
Private Sub Command3_Click()
    cn.Execute "DELETE FROM USERPASSWORD WHERE UID = '" & txtUid.Text & "'"
    Command1.Value = True
End SubPrivate Sub Form_Load()
    cn.ConnectionString = "Driver={SQL Server};SERVER=DataServer;DATABASE=zxzx;UID=information;PWD=information*&#"    'cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
        App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
        "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
        "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
        "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Answer 5

这个随便上google搜一下到处都是呀，我都懒得写了，都不知道回答过多少遍了...

Answer 6

我运行程序的时候提示
实时错误‘91’
对象变量或WITH块变量未设置
怎么设置呢