VB.NET中没有RecordSet了.取而代之的是DataSet.
在VB.net中可以先用SqlConnection对像来连接数据库再用SqlDataAdapter对像来读取数据并填充到DataSet里.然后就可以进行数据绑定了.
例:
dim
conn
as
SqlConnection
da
SqlDataAdapter
ds
Dataset
set
=
new
conn.ConnectionString="server=serverIP;database=databasename;uid=userid;pwd=password";
conn.open
(,conn)
da.fill(ds)
pplication
Set xlapp = CreateObject("Excel.Application") '激活EXCEL
xlapp.Visible = True '让EXCEL可见
Set xlbook = xlapp.Workbooks.Open(App.Path + "个人简历.xlt")
'打开工作簿,strDestination为一个EXCEL报表文件
Set xlsheet = xlbook.Worksheets(1) '设定工作表
excel.application 用到这个就可以了.必要的话导入excel的dll文件.
这样你就发现、可以用vb.net来对excel来操作.你可以查下微软的msdn、有具体的属性方法.
如:
Dim ef As New Excel.Application
Dim es As New Excel.Worksheet
Dim er As Excel.Range
ef.Workbooks.Add()
es = ef.Worksheets("sheet1")
es.Activate()
er = es.Range("a1:C1")
er.Select()
er.Merge()
range 用来定位、
然后你可以循环把数据输出到指定了格式的excel文件里了吧、其实连格式都是可以程序控制的好好学下吧.
可以参考一下这篇文章
Public sqlcon As System.Data.SqlClient.SqlConnection
Public sqladapter As System.Data.SqlClient.SqlDataAdapter
Public command As System.Data.SqlClient.SqlCommand
Public ds As System.Data.DataSet
Public dr As System.Data.DataTable
sqlcon = New System.Data.SqlClient.SqlConnection
sqlcon.ConnectionString = "Server=(local); Initial Catalog=test1 ; User ID="数据库sa用户"; Password="数据库密码""
ds = New System.Data.DataSet
ds.Tables.Add(dr)
sqlcon.Open()
sqladapter.Fill(dr)
sqlcon.Close()
界面上控件
DataGridView1.DataSource = dr
Imports?System.Data
Imports?System.Data.SqlClient
Public?Class?Form1
Inherits?System.Windows.Forms.Form
'数据库连接对象
'错误的写法?
'Dim?objConnection?As?SqlConnection?=?New?SqlConnection("server=(local);database=pubs;user?id=sa;password=")
'正确写法
'数据适配器
Dim?objDataAdapter?As?SqlDataAdapter?=?New?SqlDataAdapter()
'DataSet
Dim?objDataSet?As?DataSet?=?New?DataSet()
Private?Sub?Form1_Load(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Me.Load
'设置查询命令属性
objDataAdapter.SelectCommand?=?New?SqlCommand
objDataAdapter.SelectCommand.Connection?=?objConnection
objDataAdapter.SelectCommand.CommandText?=?"select?au_lname,au_fname,title,price?from?authors?join?titleauthor?on?authors.au_id=titleauthor.au_id?join?titles?on?titleauthor.title_id=titles.title_id?order?by?au_lname,au_fname"
objDataAdapter.SelectCommand.CommandType?=?CommandType.Text
'打开数据库连接
objConnection.Open()
'填充DataSet对象
objDataAdapter.Fill(objDataSet,?"authors")
'关闭数据库连接
objConnection.Close()
'给DataGrid绑定数据
grdAuthorTitles.DataSource?=?objDataSet
grdAuthorTitles.DataMember?=?"authors"
'清除
objDataAdapter?=?Nothing
objConnection?=?Nothing
End?Sub
End?Class
myselectquery
string
"select
*
from
where
姓名='小强'"
mycommand
sqlcommand
(myselectquery,
conn)
'建立一个command控件,conn是你的sqlconnection对象
conn.open()'打开数据连接
myreader
sqldatareader'定义一个reader用来读数据
mycommand.executereader()'运行你的查询,结果到myreader
if
myreader.read()
then
'如果查到了数据
msgbox(myreader.getstring(0))
'显示第一个字段
end
以上就是土嘎嘎小编为大家整理的vb.net与sql的简单介绍vb.net与sql的简单介绍相关咨询咨询主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!