可以肯定的是我的数据库没有问题,添加数据没有问题。 代码如下: Dim rs As New ADODB.Recordset Dim sql As String sql = "select * from newtable" rs.Open sql, cn, 3, 2 Set MSFlexGrid1.DataSource = rs 就是这一句有问题Set MSFlexGrid1.DataSource = rs
连接代码如下:
Dim cn As New ADODB.Connection
cn.ConnectionString = "provider=SQLOLEDB;persist security info=false;user id=sa;password=123;initial catalog=vb;data source=××××××"