Dim Cnn As New ADODB.Connection Dim rs As New ADODB.RecordsetPrivate Sub Form_Load() Dim Cnn_str As String Cnn_str = "provider=sqloledb;driver=sql server;server=服务器名称;database=数据库名;user id=sa;password=密码" Cnn.Open Cnn_str End SubPrivate Sub Command1_Click() rs.Open "select * from student", Cnn, adOpenDynamic
Set MSHFlexGrid1.DataSource = rs
End SubPrivate Sub Command2_Click() Cnn.Execute "insert into student values('101','可可')" Set MSHFlexGrid1.DataSource = rs MSHFlexGrid1.Refresh End Sub不知楼主是不是这个意思。。
谢了。
不过要是对本表的的全视图进行查询的话。你可以用datagrid控件进行数据更新,就是在查询的时候把datagrid控件的allowaddnew,allowdelete,allowupdate,等属性都设为真。不过还是没听过谁这么干的。这样的软件的数据不要大乱了吗?请各位高手不吝赐教。
DB2中可以设置不同连接的隔离级别,SQL2000中不知道,
只要容许做读取的数据库连接可以读取影子记录(脏记录),
那么这种做法是很正常的,特别是前台要做查询时
Dim rs As New ADODB.RecordsetPrivate Sub Form_Load()
Dim Cnn_str As String
Cnn_str = "provider=sqloledb;driver=sql server;server=服务器名称;database=数据库名;user id=sa;password=密码"
Cnn.Open Cnn_str
End SubPrivate Sub Command1_Click()
rs.Open "select * from student", Cnn, adOpenDynamic
Set MSHFlexGrid1.DataSource = rs
End SubPrivate Sub Command2_Click()
Cnn.Execute "insert into student values('101','可可')"
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.Refresh
End Sub不知楼主是不是这个意思。。