求一个SQLSERVER数据库连接读写的例子，最好是SQLSERVER 7。0的，2000也可以

Question

本人MAIL：[email protected]
分不够再加跪求！

Answer 1

Private Sub Command1_Click()
Dim xx As String
Dim prs As New ADODB.RecordsetgDBConnect.CommandTimeout = 10
DoEvents
xx = "Provider=sqloledb;Data Source=192.168.1.200;Initial Catalog=" & "csdb" & ";User Id=sa;Password=1234"
gDBConnect.ConnectionString = xx
DoEvents
gDBConnect.Open'连接prs.Open "select * from PC_CP_ClientInfo", gDBConnect'读取表信息
prs.Move 3
MsgBox prs.Fields(1).ValueEnd Sub

Answer 2

Public Function getName() As String()
    Dim Value() As String
    Dim i As Integer
    Dim rs As New ADODB.Recordset
    Dim cnn As New ADODB.Connection
    Dim selStr As String
    selStr = "select name from Department "
    cnn.Open "Driver={sql server};server=localhost;uid=sa;pwd=sa;database=Example"
    rs.Open selStr, cnn, adOpenStatic, adLockReadOnly
    ReDim Value(rs.RecordCount - 1)
    i = 0
    Do While Not rs.EOF
        Value(i) = rs!name
        i = i + 1
        rs.MoveNext
    Loop
    rs.Close
    cnn.Close
    getName = Value
End Function

Answer 3

楼上兄弟的数据库连接和读写。
报表显示：
Dim Ts As String,SQL$
DataEnvironment1.Connection1.ConnectionString = cn
DataEnvironment1.Connection1.Open cn
If DataEnvironment1.Command1.State <> adStateClosed Then
   DataEnvironment1.Command1.Close
End If
DataEnvironment1.Connection1, adOpenStatic, adLockOptimisticSQL="select 姓名,班级,交费金额,交费日期 from 交费记录 "
DataEnvironment1.Commands(1).CommandText = SQL
DataReport1.Show
End SubDataReport1.Show

Answer 4

用ＳＱＬ连接的：
dim cn As new ADODB.Connection
Dim rs As new ADODB.Recordset
cn.Open "Provider=sqloledb;server=ip地址;Initial Catalog=数据库名;user id=用户名;password=密码＂
rs.open "select * from 表名 where 项目名称='明珠大厦'"，cn,3,3用RS是有返回值的记录，无返回值直接调用cn.execute("insert/update/delete语句")

Answer 5

楼上的例子固然是好,但如何SQL服务器改动了呢,数据库名称改了呢?如何解决呢?我的建议是写出一个配置文件,在INI文件里好写服务器名称,数据库名称,直接调用就可以了,不管服务器和数据库有什么改动,直接修改INI文件就可以了.

Answer 6

那就把关键字替换成函数调用,这个函数是读写ini文件的

Answer 7

不好意思，借用一下请问ini文件怎么写？？

Answer 8

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=xxx;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
   Set DataGrid1.DataSource = Rs

Answer 9

建立与读取.ini文件 
'请於form中放3个TextBox，一个CommandBox
Private Declare Function GetPrivateProfileString Lib "kernel32"  _
   Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
   ByVal lpKeyName As Any, ByVal lpDefault As String,  _
   ByVal lpReturnedString As String, ByVal nSize As Long, _
   ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32"  _
   Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
   ByVal lpKeyName As Any, ByVal lpString As Any, _
   ByVal lpFileName As String) As LongPrivate Sub Command1_Click()
Dim success As Long
success = WritePrivateProfileString("MyApp", "text1", Text1.Text, "c:\aa.ini")
'叁数一 Section Name
'叁数二 於.ini中的项目
'叁数三 项目的内容
'叁数四 .ini文件的名称
success = WritePrivateProfileString("MyApp", "text2", Text2.Text, "c:\aa.ini")
success = WritePrivateProfileString("MyApp2", "text3", Text3.Text, "c:\aa.ini")
End SubPrivate Sub Form_load()
Dim ret As Long
Dim buff As String
buff = String(255, 0)
ret = GetPrivateProfileString("Myapp", "text1", "text1", buff, 256, "c:\aa.ini")
'若.ini MyApp中无text1，则采用叁数三的值
Text1.Text = buff
buff = String(255, 0)
ret = GetPrivateProfileString("Myapp", "text2", "text2", buff, 256, "c:\aa.ini")
Text2.Text = buff
buff = String(255, 0)
ret = GetPrivateProfileString("Myapp2", "text3", "text3", buff, 256, "c:\aa.ini")
Text3.Text = buff
End Sub

Answer 10

把读写 ini 的功能做成类模块，使用比较方便：Option Explicit'/////////////////////////////////////////////////////////////
'
'Name:      cIniAccess
'访问INI的函数
'
'
'/////////////////////////////////////////////////////////////
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal AppName As String, ByVal KeyName As String, ByVal keydefault As String, ByVal Filename As String) As LongPrivate cIniFile As StringPublic Function iRead(ByVal IniSection As String, ByVal IniKey As String, ByVal IniDefault As String) As String    Dim lpReturnedString As String
    Dim nSize   As Long
    Dim RetVal  As Long
    
    lpReturnedString = Space$(254)
    nSize = 254
    
    RetVal = GetPrivateProfileString(IniSection, IniKey, IniDefault, lpReturnedString, nSize, cIniFile)
    
    Dim ipos    As Long
    ipos = InStr(1, lpReturnedString, Chr$(0))
    
    If ipos = 0 Then
        iRead = lpReturnedString
    Else
        iRead = Left(lpReturnedString, ipos - 1)
    End If
    
End Function
Public Function iWrite(ByVal IniSection As String, ByVal IniKey As String, ByVal IniValue As String) As Boolean
    
    Dim RetVal As Long
    
    RetVal = WritePrivateProfileString(IniSection, IniKey, IniValue, cIniFile)
    
    If RetVal = 1 Then
        iWrite = True
    Else
        iWrite = False
    End If
    
End Function
Public Property Get Filename() As String
    Filename = cIniFile
End PropertyPublic Property Let Filename(ByVal vNewValue As String)
    cIniFile = vNewValue
End Property