
在代码中建立数据库连接,写上sql命令,用一个SqlDataReader即可。
Dim mycon as SqlConnection=new SqlConnection()
Dim mycom as SqlCommand =new SqlCommand("select id")
Dim mydr as SqlDataReader=mycomExecuteReader();
dim mytxb as TextBox
while(mydrRead())
Begin
mytxbText=mydrGetstring(0)
mydrclose()
myconclose()
End
if not webbrowser1document is nothing then
for each x in webbrowser。。。。。
。。。
next
endif
MicrosoftJetOLEDB40好像不支持Excel,你可以用DAO来访问
首先需要引用Microsoft DAO 36 Object Library
Dim DB As DAODatabase
Dim RS As DAORecordset
Set DB = OpenDatabase("d:\数据xls", False, False, "Excel 80;")
Set RS = DBOpenRecordset("文件$")
Set DataGrid1DataSource = RS
找不到可插入的ISAM的好像就是不支持这种数据格式,
--抱歉,刚看了一下,Datagrid只支持ado的datasource,你如果非要用控件绑定的话,你可以Miscrosoft FlexGrid,它可以绑定dao的datasource
如果你只是为了显示,我建议你可以不用绑定的方式,在Form上放一个ListView控件,然后在ListView属性中把查看方式改成lvReport,增加列首(标题)和Excel的列一一对应。代码如下
Dim DB As DAODatabase
Dim RS As DAORecordset
Set DB = OpenDatabase("d:\数据xls", False, False, "Excel 80;")
Set RS = DBOpenRecordset("文件$")
Dim li As ListItem
ListView1ListItemsClear
Do Until RSEOF
Set li = ListView1ListItemsAdd(, , (RS(0))
For i = 1 To RSFieldsCount - 1
liSubItems(i) = RS(i)
Next
RSMoveNext
Loop
以上就是关于vb.net邮件发送怎样获取错误信息全部的内容,包括:vb.net邮件发送怎样获取错误信息、VB 用webbrowser控件获取相关页面提示错误“91”、vb读取excel表时出现3170错误,急,在线等等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)