Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim strsql As String strConn = "Provider=MSDAORA.1;Data Source=jggw;User ID=gwgis; Password=gwgis;" Conn.CursorLocation = adUseClient Conn.Open strConn strsql = "insert into 给水管线附属物 (名称,kx,ky) values ('w','2','2')" 'Rs.Open strsql, Conn adOpenDynamic, adLockOptimistic
MsgBox "添加成功", vbInformation, "成功提示"
如果只会用控件的话,可以用ADODC
dim cnn as new adodb.connection ‘//dim eventwith cnn as adodb.connection dim rs as new adodb.recordset cnn.connectionstring=”Driver={Sql server};server=SeverName;database=数据库名;UID=sa;Pwd=” 或者‘//cnn.ConnectionString="provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;Password=;Initial Catalog=数据库名;data source=服务器名" cnn.open rs.cursorlocation=aduseclient rs.cursortype=adopenstatic rs.activeconnection=cnn rs.locktype=adlockbatchoptimistic ‘//开放式更新 updateBatch rs.open sql语句
先引用ADO dim cn as new adodb.connection dim rs as new adodb.recordset cn.open "provider=msdaora.1;data source=database;uid=sa;pwd=p" rs.open "select * from tablename",cn
搜一下,以前有很多类似的帖子
Dim Rs As New ADODB.Recordset
Dim strsql As String strConn = "Provider=MSDAORA.1;Data Source=jggw;User ID=gwgis; Password=gwgis;"
Conn.CursorLocation = adUseClient
Conn.Open strConn strsql = "insert into 给水管线附属物 (名称,kx,ky) values ('w','2','2')"
'Rs.Open strsql, Conn adOpenDynamic, adLockOptimistic
MsgBox "添加成功", vbInformation, "成功提示"
dim rs as new adodb.recordset
cnn.connectionstring=”Driver={Sql server};server=SeverName;database=数据库名;UID=sa;Pwd=”
或者‘//cnn.ConnectionString="provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;Password=;Initial Catalog=数据库名;data source=服务器名"
cnn.open
rs.cursorlocation=aduseclient
rs.cursortype=adopenstatic
rs.activeconnection=cnn
rs.locktype=adlockbatchoptimistic ‘//开放式更新 updateBatch
rs.open sql语句
dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.open "provider=msdaora.1;data source=database;uid=sa;pwd=p"
rs.open "select * from tablename",cn