初学VB谁可以给个数据库(access或sqlserver)连接添加、修改、删除的简单例子！

Question

初学VB谁可以给个数据库(access或sqlserver)连接添加、修改、删除的简单例子！
简单为好，谢谢！

Answer 1

用哪种方式?
ActiveX还是ADO?

Answer 2

Set MyCon = New ADODB.Connection
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\issue.mdb"
MyCon.Open str msgtext = "insert into issue_Log (i_Title,Logged_By,Log_Date,i_priority,i_Description,i_status) values ('" & Text1.Text & "','" & Text2.Text & "','" & CDate(DTPicker1.Value) & "','" & Combo1.Text & "','" & Text4.Text & "','On')"
  MyCon.Execute msgtext

Answer 3

修改ACCESS,SQL都可以用的!
Dim sSQLS As StringsSQLU = "update 表名 set 数据库的字段名1='" & Trim(要修改的内容1) & "',数据库的字段名2 ='" & Trim(要修改的内容2) & "' where 字段名3='" & Trim(条件) & "' "MatirialsConn.Execute sSQLU

Answer 4

'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 5

,可以把下面拷贝到你新建的模块中!
调用的时候直接在
Private Sub Form_Load()
  mmm\\\\\\\\\\\\\\\\\调用了数据库连接
End Sub\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
数据库连接
Public MatirialsConn As ADODB.ConnectionPublic Sub mmm()Set MatirialsConn = New ADODB.ConnectionWith MatirialsConn    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;Persist Security Info=False"    .CursorLocation = adUseClient
    .Mode = adModeReadWrite    .OpenEnd WithEnd Sub

Answer 6

添加ACCESS,SQL   都可以的
Dim sSQLS As String
 sSQLS = "insert into 表名 (字段名1,字段名2,字段名3) values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "')"
  MatirialsConn.Execute  sSQLS 刚才前面说的是ACCESS的数据库连接

Answer 7

ADO：
'实始化，设数据库为mydb1.mdb，内有表table1，字段有“ID”（主键）,"姓名","性别"
option explicit
private dataconn as adodb.connection
private datars as adodb.recordsetprivate sub form_load ()
set dataconn=new adodb.connection
dataconn.connectionstring="provider=microsoft.jet.oledb.4.0;data source=c:\mydb1.mdb;persist security info=false"
dataconn.open
set rs=new adodb.recordset
rs.cursorlocation=aduseclient
rs.open "table1",dataconn,adopendyanmic,adlockoptimistic,adcmdtable
end sub
'添加按钮
private sub command1_click
dim i as integer,tb 
rs.addnew
for i=0 to 2
    rs.fields(i).value=text1(i).text
next
rs.updata
for i=0 to 2
    text1(i).text=""
next
end sub'删除按钮
private sub command2_click()
if not rs.eof then
   rs.delete
end if
end sub'上一条
private sub command3_click()
dim i as integer
if not rs.bof then
   rs.moveprevious
else
   rs.movelast
end if
for i=0 to 2
    text1(i).text=rs.fields(i).value
next
end sub'下一条
private sub command4_click()
dim i as integer
if not rs.eof then
   rs.movenext
else
   rs.movefirst
end if
for i=0 to 2
    text1(1).text=rs.fields(i).value
next 
end sub
'预览
private sub command5_click()
set datagrid1.datasource=rs
end sub
很简的，自己慢慢看吧

Answer 8

Option Explicit
'===================================================================================
'引用：Microsoft DAO 3.51 Object Library
'===================================================================================
Private dbDataBase As DAO.Database '本模块内的数据库对象
Private tdTable As DAO.TableDef '本模块内的表对象
Private fldField As DAO.Field '本模块内的字段对象
'新建一个数据库，cDataBase(数据库的路径,数据库的密码（可选，默认空）)
Public Function cDataBase(ByVal PathFile As String, Optional ByVal Password As String = "") As Boolean
    On Error Resume Next
    Set dbDataBase = CreateDatabase(PathFile, dbLangGeneral, dbEncrypt)
    dbDataBase.NewPassword "", Password
    Set dbDataBase = Nothing
    cDataBase = (Err.Number = 0)
End Function
'新建一个表，必须有一个字段，cTable(数据库的路径,新建的表名,第一个字段名,字段的类型,字段的大小,这个数据库的密码（可选，默认空）)
Public Function cTable(ByVal MdbFile As String, ByVal TableName As String, ByVal DefaultFieldName As String, ByVal FieldType As DAO.DataTypeEnum, ByVal FieldSize As Long, Optional ByVal Password As String = "") As Boolean
    On Error Resume Next
    Set dbDataBase = DAO.OpenDatabase(MdbFile, True, False, ";pwd=" & Password & ";")
    Set tdTable = dbDataBase.CreateTableDef(TableName)
    Set fldField = tdTable.CreateField(DefaultFieldName, FieldType, FieldSize)
    tdTable.Fields.Append fldField
    dbDataBase.TableDefs.Append tdTable
    Set fldField = Nothing
    Set tdTable = Nothing
    Set dbDataBase = Nothing
    cTable = (Err.Number = 0)
End Function
'新建一个字段，cField(数据库的路径,表名,字段名,字段的类型,字段的大小,这个数据库的密码（可选，默认空）)
Public Function cField(ByVal MdbFile As String, ByVal TableName As String, ByVal FieldName As String, ByVal FieldType As DAO.DataTypeEnum, ByVal FieldSize As Long, Optional ByVal Password As String = "") As Boolean
    On Error Resume Next
    Set dbDataBase = DAO.OpenDatabase(MdbFile, True, False, ";pwd=" & Password & ";")
    Dim i As Long
    For i = 0 To dbDataBase.TableDefs.Count - 1
        Set tdTable = dbDataBase(i)
        If tdTable.Name = TableName Then Exit For
        Set tdTable = Nothing
    Next
    Set fldField = tdTable.CreateField(FieldName, FieldType, FieldSize)
    tdTable.Fields.Append fldField
    Set fldField = Nothing
    Set tdTable = Nothing
    Set dbDataBase = Nothing
    cField = (Err.Number = 0)
End Function'删除一个表，dTable(数据库的路径,删除的表名,这个数据库的密码（可选，默认空）)
Public Function dTable(ByVal MdbFile As String, ByVal TableName As String, Optional ByVal Password As String = "") As Boolean
    On Error Resume Next
    Set dbDataBase = DAO.OpenDatabase(MdbFile, True, False, ";pwd=" & Password & ";")
    dbDataBase.TableDefs.Delete (TableName)
    Set dbDataBase = Nothing
    dTable = (Err.Number = 0)
End Function
'删除一个字段，dField(数据库的路径,表名,字段名,这个数据库的密码（可选，默认空）)
Public Function dField(ByVal MdbFile As String, ByVal TableName As String, ByVal FieldName As String, Optional ByVal Password As String = "") As Boolean
    On Error Resume Next
    Set dbDataBase = DAO.OpenDatabase(MdbFile, True, False, ";pwd=" & Password & ";")
    Dim i As Long
    For i = 0 To dbDataBase.TableDefs.Count - 1
        Set tdTable = dbDataBase(i)
        If tdTable.Name = TableName Then Exit For
        Set tdTable = Nothing
    Next
    tdTable.Fields.Delete (FieldName)
    Set tdTable = Nothing
    Set dbDataBase = Nothing
    dField = (Err.Number = 0)
End Function
---------
贴个DAO的。