vb6.0

Question

各位前辈：
    公司要求本人现在学习vb6.0，项目马上就开始了！！急需一个vb6.0操作sql2005的小例子。小弟在这里谢了！

Answer 1

首先在工程->引用   Microsoft   ActiveX   Data   Objects   2.0   Library   
连2000的: 
    cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=." 
连2005的: 
    cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器名或IP地址;uid=sa;pwd=sa;" 
Provider=SQLOLEDB.1 ------打开数据库用oledb的方式连接
Integrated Security=SSPI--------采用的集成安全机制
Persist Security Info ----是否保存安全信息
User ID-------------------用户名
PassWord------------------密码
Initial Catalog-----------数据库的名称或者数据库ip或者目录
Data Source---------------数据源            ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\data.mdb;Jet OLEDB:Database Password=harry2000"
            cn.Open ConnectionString
            rs.Open "select * from 表1 where 编号 = '" & scan & "'", cn, adOpenKeyset, adLockOptimistic  Dim objCn As New Connection 
  Dim objRs As New Recordset 
  Dim strSQL As String 
  
  objCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=物管数据库.mdb;Persist Security Info=False" 
  objCn.ConnectionTimeout = 30 
          
  strSQL = "select 口令 from 系统用户 where 用户名='" & txtLog(0) & "'" 
  Set objRs.ActiveConnection = objCn 
  objRs.Open (strSQL) 
  首先在工程->引用   Microsoft   ActiveX   Data   Objects   2.0   Library   
  Dim   Cn   As   New   ADODB.Connection   
  Dim   Re   As   New   ADODB.Recordset   
  Dim   SqlStr   As   String   
  Private   Sub   Form_Load()   
  '以文件打开,也可以指定ODBC数据源（DNS）   
  Private   Sub   OpenDiskMdb()   
  Dim   Cn   As   New   ADODB.Connection   
  Dim   Re   As   New   ADODB.Recordset   
  Dim   SqlStr   As   String   
  Dim   ConnStr   As   String   
  Set   Cn   =   New   ADODB.Connection   
  Set   Re   =   New   ADODB.Recordset   
  Cn.Open   "Provider=Microsoft.jet.OLEDb.3.51;Data   Source=e:\db\01.mdb"   '打开磁盘上的数据库   
  Re.CursorLocation=adUseClient     
  SqlStr   =   "select   *   from   titles   "   ‘SQL语句   
  Re.Open   SqlStr,   Cn,   adOpenStatic,   adLockReadOnly   
  End   Sub   Public   Sub   getwrw()   
          Dim   cn   As   New   Connection,   cmd   As   New   ADODB.Command,   rst   As   New   ADODB.Recordset   
          Dim   i   As   Integer   
          cn.Open   "DSN=tbbt;UID=sa;PWD=;"   
          Set   cmd.ActiveConnection   =   cn   
          cmd.CommandText   =   "select   *   from   wrwdm"   
          rst.CursorLocation   =   adUseClient   
          rst.Open   cmd,   ,   adOpenStatic,   adLockBatchOptimistic   
          rst.MoveFirst   
          wrwnum   =   rst.RecordCount   -   1   
          For   i   =   0   To   wrwnum   -   1   
                  wrwinfo(i,   0)   =   Trim(rst.Fields("wrwdm"))   
                  wrwinfo(i,   1)   =   Trim(rst.Fields("wrwmc"))   
                  wrwinfo(i,   2)   =   Trim(rst.Fields("wrwlc"))   
                  wrwinfo(i,   3)   =   Trim(rst.Fields("wrwdw"))   
                  rst.MoveNext   
          Next   
          Set   rst   =   Nothing   
          Set   cmd   =   Nothing   
          Set   cn   =   Nothing   
  End   Sub  

Answer 2

cn.Open   "DSN=tbbt;UID=sa;PWD=;"  
wrwinfo(i,   0)   =   Trim(rst.Fields("wrwdm"))   
wrwinfo(i,   1)   =   Trim(rst.Fields("wrwmc"))   
wrwinfo(i,   2)   =   Trim(rst.Fields("wrwlc"))   
wrwinfo(i,   3)   =   Trim(rst.Fields("wrwdw"))   
我才刚开始学习 要是有注释的话会更好点。。不过这个肯定会用到。呵呵。。 

Answer 3

http://download.csdn.net/source/1627068

Answer 4

你先要搞清楚连接数据库的几个关键字：
Provider=SQLOLEDB.1 ------打开数据库用oledb的方式连接
Integrated Security=SSPI--------采用的集成安全机制
Persist Security Info ----是否保存安全信息
User ID-------------------用户名
PassWord------------------密码
Initial Catalog-----------数据库的名称或者数据库ip或者目录
Data Source---------------数据源之后用ADODB来操作数据库。