数据库连接

Question

为什么我写的代码不能直接同数据库连接呢(关于连接的问题,困扰我好久了.刚才新做了一个也是一样.明明2个代码是一样的,就是数据库不一样.但是一个可以连接,一个显示 "实时错误'3709' 无法用连线来执行此操作.内容可能已关闭或无效")?我真的快哭了.就连接一个数据库,怎么这么费劲啊????!!!!我以前还看到好多种数据库连接方式,根本不明白各种方法的意思.哪位高人能给我讲一下?网上查询不到啊!.
希望各位前辈不要嫌这个问题菜,您只要一ctrl+c 和 ctrl+v,就能得很多分,不是么?最多就再打几个字.希望各位能把您可以成功连接数据库的代码按下列形式贴上来.这样下次有人找到次帖子,也能非常快速的理解里边得内容.前提条件(需要引用或者添加部件):
代码():
连接方式(ado,dao,odbc等等等....):

Answer 1

引用  ado
Dim sqlcon As New ADODB.Connection
Dim sqlrec As New ADODB.Recordset
Dim sqlstr As String
Dim yk As DoublePrivate Sub Command1_Click()
  sqlstr = "select top 1 余款 from yk where 客户名称='" & Text1.Text & "' order by id desc"
  sqlrec.Open sqlstr, sqlcon, adOpenDynamic, adLockReadOnly
    If Not sqlrec.EOF Then
      yk = sqlrec.Fields(0)
    Else
      yk = 0
    End If
  sqlrec.Close
  Set sqlrec = Nothing
  sqlstr = "insert into yk values('" & Now & "','" & Text1.Text & "'," & Text2.Text & "," & Text3.Text & "," & yk & "+" & CDbl(Text3.Text) & "-" & CDbl(Text2.Text) & ")"
  sqlcon.BeginTrans
  sqlcon.Execute sqlstr
  sqlcon.CommitTrans
End SubPrivate Sub Form_Load()
  sqlcon.ConnectionString = "Provider=SQLOLEDB.1;Password=417417;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=sammi"
  sqlcon.Open
End Sub

Answer 2

还有一种用odbc的dsn连接的，差不多，只是连接字符串改了一下就懒得贴了。

Answer 3

首先工程中引用：Microsoft ActiveX Data Objects 2.0 Library
连接ACCESS的代码为：
Public cnn As ADODB.Connection    '连接数据库
Public rss As ADODB.Recordset 
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名称.mdb;Persist Security Info=False;Jet OLEDB:Database Password=密码;"Set cnn = New ADODB.Connection
cnn.Open strcnn连接SQL Server2000：
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
strcnn = "Provider=SQLOLEDB.1;Persist Security Infor=False;User Id=" &用户名& ";Password=" & 密码 & ";Initial Catalog=" & 数据库名称 & ";Data Source=" & 服务器名称 & ""Set Cn = New ADODB.Connection
Cn.Open strcnn如果还有问题找我，这是我使用没有任何问题的代码。

Answer 4

都是连接字符串的不同，看看这个http://www.connectionstrings.com/，上面有很多数据库ODBC和ADO连接的连接字符串。