[高等教育]vb程序设计课件.ppt

ADODC控件+SQL Adodc1.CommandType = adCmdText Adodc1.RecordSource = SELECT * FROM 学生 Adodc1.Refresh With Adodc1.Recordset .AddNew .Fields(班级) = Text1.Text .Update End With Adodc1.Refresh ADODC控件+SQL With Adodc1 .ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51; Data Source= App.Path \db1.mdb; .CommandType = adCmdUnknown .RecordSource = SELECT * FROM 学生 .Refresh .Recordset.AddNew .Recordset.Fields(班级) = Text1.Text .Recordset.Update .Refresh End With ADO对象+97 Dim Cnn As New ADODB.Connection Dim Tbl As New ADODB.Recordset Cnn.Open Provider=Microsoft.Jet.OLEDB.3.51; Data Source= App.Path \db1.mdb; With Tbl .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open 学生, Cnn, , , adCmdTable .AddNew .Fields(班级) = Text1.Text .Update .Close End With Set Tlb1 = Nothing Cnn.Close Set Cnn = Nothing ADO对象+97+SQL Dim Cnn As New ADODB.Connection Dim rst As New ADODB.Recordset strSQL = SELECT * FROM 学生 Cnn.Open Provider=Microsoft.Jet.OLEDB.3.51; Data Source= App.Path \db1.mdb; With rst .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open strSQL, Cnn, , , adCmdText .AddNew .Fields(班级) = Text1.Text .Update .Close End With Set Tlb1 = Nothing Cnn.Close Set Cnn = Nothing ADO对象+2000 Set Cnn1 = New ADODB.Connection Cnn1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= App.Path \db1.mdb;Mode=Read|Write;Persist Security Info=False Cnn1.Open Set rst = New ADODB.Recordset SQL = SELECT * FROM Table1 rst.CursorLocation = adUseClient rst.Open SQL, Cnn1, adOpenKeyset, adLockOptimistic, adCmdText With rst .AddNew .Fields(姓名) = Text1(0).Text .Update .UpdateBatch adAffectAllChapters .Close End With Cnn1.Close Set rst = Nothing Set Cnn1 = Nothing ADO对象+2000+密码 Dim Cnn1 As ADODB.Connection Dim rst As Recordset Set Cnn1 = New ADODB.Connection strConn = Data Source= App.Path \db1.mdb;Jet OLEDB:Database Password=7281322 Cnn1.Provider = Microsoft.Jet.OLEDB.4.0 Cnn1.Open ConnectionString:=strConn Set rst = New ADODB.R