用DATAGRID 也不行啊! //不会吧。 If accp = True Then Set DATAGRID.DataSource = Res
Private Sub Form_Load() Dim strConn As String Dim pubConn As New ADODB.Connection Dim rsTable As New ADODB.Recordset Dim strSQL As String 'Access 2000的連接 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\North.mdb;Persist Security Info=False" 'SQL Server2000的連接 strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=develop; password=12345;Data Source=ServerName" pubConn.Open strConn rsTable.CursorLocation = adUseClient strSQL = "select * from TableName" rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rsTableEnd Sub
//不会吧。
If accp = True Then Set DATAGRID.DataSource = Res
Dim strConn As String
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String 'Access 2000的連接
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\North.mdb;Persist Security Info=False"
'SQL Server2000的連接
strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=develop; password=12345;Data Source=ServerName"
pubConn.Open strConn rsTable.CursorLocation = adUseClient
strSQL = "select * from TableName"
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rsTableEnd Sub
这是两种控件啊~~~你的数据库里有记录吗????没有记录当然显示不出来~随便问问楼主你是ACCP的学员么???
我是ACCP S1的学员
将dataGrid 换成MsHFlexGrid 虽然OK?
但是,MsHFlexGrid 网格不能变长 需自己用代码写,太麻烦又占空间。
不好意思:
我是说“:在LOAD事件中网格不能由字节的长度而变长”。
DBGrid.Refresh
再 DBGrid1.Refresh