首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

一个关于Datagrid的有关问题~

2012-03-09 
一个关于Datagrid的问题~~~在线等~!我在窗体上加入DataGrid控件,怎样在窗体载入的时候让Datagrid里的数据

一个关于Datagrid的问题~~~在线等~!
我在窗体上加入   DataGrid   控件,怎样在窗体载入的时候让Datagrid里的数据纪录为空,同时又不会影响到数据库的内容~!

[解决办法]
你的datagrid的数据源是什么,把数据源设为空的就可以了。
就是说在Form_Load()事件中,把它设为空,以下以ADODC为例(datagrid的数据源是ADODC1):
Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=123;pwd=123;Initial Catalog=WIP;Data Source=servername "
Adodc1.CommandTimeout = 30
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = " "
Adodc1.Refresh

End Sub
[解决办法]
form_load 什么也不做

你试试吧,好用的
记得要引用ado
你只需要在工程/引用 miscrosoft Activex data objects 2.x library 就可以了
Dim Db As Connection
Dim WithEvents adoPrimaryRS As Recordset '数据库连接对象
Private Sub Command1_Click()


strsql= "select 字段 from 表 where 你的条件 "
Set Db = New Connection
Db.CursorLocation = adUseClient
'下面的连接数据字符串你要修改一下
Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\计划管理系统.mdb;Persist Security Info=False "
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open strsql, Db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoPrimaryRS
end sub


热点排行