新建 文本文档.txt

用户 是xingshidong 密码123 一个功能齐全的 能运行的VB图书管理系统

1 楼510215（傲剑狂刀）回复于 2003-10-10 13:18:06 得分 0 你可以打开VB6.0,建立一个工程   
  然后在工程里面选择   引用   
  选择Microsoft   Active   Data   Objects   2.X   Library(根据你自己的情况选择版本)   
  在工具箱上面空白位置点鼠标右键选择部件   
  添加Microsoft   ADO   Data   Control   6.0(OLEDB)   
  这时在工具箱中出现Adodc的图标   
  双击它加到窗体中,选择他,然后在属性窗口中选择自定义   
  这时跳出属性页,在   通用   选项卡中选择   使用连接字符串   
  点击生成,在   提供者   选项卡选Microsoft.Jet.OLEDB.4.0   OLE   DB   Provider   
  点下一步,选择你的Access数据库文件,输入用户名和密码,最好测试链接一下,确定   
  就可以调用了   
    
  在语句里面用用链接字符串也可以链接   
  如:(注,需要把数据库的地址改为你电脑里的绝对路径)   
    
  Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=F:\1.mdb;Persist   Security   Info=False
Top

2 楼lihua9666（沙漠孤鱼）回复于 2003-10-10 15:23:39 得分 0 dim   cn   as   new   adodb.connection   
  cn.ConnectionString="driver={Microsoft   Access   Driver   (*.mdb)};DBQ="   &   server.MapPath("DateBase/WEBDB.mdb")   &   ";UID=;PWD=654321;"   
  cn.Open
Top

3 楼zjcxc（邹建）回复于 2003-10-10 16:26:25 得分 0 Sub   access()   
          Dim   iRe   As   ADODB.Recordset   
          Dim   iConc   As   String   
            
          iConc   =   "Provider=Microsoft.Jet.OLEDB.4.0;Persist   Security   Info=False"   &   _   
                  ";Data   Source=F:\My   Documents\客户资料1.mdb"   
          Set   iRe   =   New   ADODB.Recordset   
          iRe.Open   "表",   iConc,   adOpenKeyset,   adLockOptimistic   
            
          MsgBox   iRe.Fields("userid").Properties("title")   
  End   Sub
Top

4 楼zjcxc（邹建）回复于 2003-10-10 16:27:03 得分 0 当然,使用之前必须引用:   
  Microsoft   Active   Data   Objects   2.X   Library(根据你自己的情况选择版本)   
  
Top

5 楼changechange（http://access911.net 是我的个人网站，欢迎光临）回复于 2003-10-10 17:39:05 得分 0 引用ado   类库   
  建立connection   
  打开recordset   即可
Top

6 楼wenhongL（三脚猫）回复于 2003-10-11 08:45:08 得分 0 引用ado   类库   
  用ado控件就可以
Top

7 楼wenhongL（三脚猫）回复于 2003-10-11 08:45:49 得分 0 用ADO连接数据库的方法,经常有二种   
  1.Provider=SQLOLEDB.1;Integrated   Security=SSPI;Persist   Security   Info=False;Initial   Catalog=test;Data   Source=Test   
  2.DRIVER={SQL   SERVER};Server=test;uid=test;pwd=test;database=test   
  
Top

8 楼cuilei197979（风）回复于 2003-10-12 11:12:48 得分 0 使用之前必须引用:   
  Microsoft   Active   Data   Objects   2.X   Library(根据你自己的情况选择版本)   
  我自己变的代码   
  Option   Explicit   
  Public   str   As   String   
    
  Private   Declare   Function   GetSystemMenu   Lib   "User32"   (ByVal   hwnd   As   Long,   ByVal   brevert   As   Long)   As   Long   
  Private   Declare   Function   RemoveMenu   Lib   "User32"   (ByVal   hMenu   As   Long,   ByVal   nPosition   As   Long,   ByVal   wFlags   As   Long)   As   Long   
  Private   Const   MF_REMOVE   =   &H1000   
  Private   Const   SC_CLOSE   =   &HF060   
    
  Public   Function   ExecuteSQL(ByVal   SQL   As   String,   MsgString   As   String)   As   ADODB.Recordset   
          Dim   cnn   As   ADODB.Connection   
          Dim   rst   As   ADODB.Recordset   
          Dim   sTokens()   As   String   
          'Dim   SQL   As   String   
          On   Error   GoTo   ExecuteSQL_Error   
          sTokens   =   Split(SQL)   
          Set   cnn   =   New   ADODB.Connection   
          cnn.Open   ConnectString   
          If   InStr("INSERT,DELETE,UPDATE",   UCase$(sTokens(0)))   Then   
                cnn.Execute   SQL   
                MsgString   =   sTokens(0)   &   "query   successful"   
          Else   
                Set   rst   =   New   ADODB.Recordset   
                rst.Open   Trim$(SQL),   cnn,   adOpenKeyset,   adLockOptimistic   
                Set   ExecuteSQL   =   rst   
                MsgString   =   "查询到"   &   rst.RecordCount   &   "条纪录"   
          End   If   
  ExecuteSQL_Exit:   
          Set   rst   =   Nothing   
          Set   cnn   =   Nothing   
          Exit   Function   
  ExecuteSQL_Error:   
          MsgString   =   "查询错误:"   &   Err.Description   
          Resume   ExecuteSQL_Exit   
  End   Function   
    
  Public   Function   ConnectString()   As   String   
          ConnectString   =   "filedsn=yjbhsj.dsn"   
  End   Function   
  窗体中调用ACCESS纪录   
  Private   Sub   Form_Load()   
        txtSQL   =   "select   *   from   bhzsjb"   
        Set   mrc   =   ExecuteSQL(txtSQL,   MsgText)   
        If   mrc.EOF   =   False   Then   
              Text1.Text   =   mrc.Fields(0)   
              Text2.Text   =   mrc.Fields(1)   
              mybookmark   =   mrc.Bookmark   
        End   If   
        recNum   =   mrc.RecordCount   
        bEdit   =   False   
        bAdd   =   False   
        bDelete   =   False   
        Text1.Enabled   =   False   
        Text2.Enabled   =   False   
  End   Sub   





dim db as new adodb.connection
dim rs as new adodb.recordset
db.open " string ....." 这个自己用ADODC连接到ACCESS或SQL SERVER 数据库，然后复制就行了

rs.Open "select * from table1 where name='sdlfsldf'", db, adOpenStatic, adLockOptimistic
rs.AddNew
rs.Fields("name").Value = Trim(text1.Text)
.
.
.
.
rs.Update
rs.Close
上面的这个方法是需要对表TABLE1要有可写的权限哟。否则会出错。
'或者
rs.Open "insert into table1(name,num,editer) values('" & Trim(text1.Text) & "',.....)", db, adOpenStatic, adLockReadOnly





Public conn As New ADODB.Connection