SELECT count(*) FROM [数据库名称].[dbo].[sysobjects] where [xtype]='U' and [name] = '表名称'
创新互联建站服务项目包括永仁网站建设、永仁网站制作、永仁网页制作以及永仁网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,永仁网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到永仁省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
根据返回的数量是1表示有一个这样的表已经存在了。
SELECT [info] FROM [数据库名称].[dbo].[sysobjects] where [xtype]='U' and [name] = '表名称'
返回的是这个表的字段数量。
SELECT [name] FROM [数据库名称].[dbo].[syscolumns] where id = (SELECT [id] FROM [数据库名称].[dbo].[sysobjects] where [name] = '表名称')
使用这个命令,可以返回您定义的表中的所有列的名称了。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\database\database1.mdb"
Dim con As New OleDb.OleDbConnection(cstring)
Dim sql As String = "select 姓名 from 学生信息表"
con.Open()
Dim cmd As New OleDb.OleDbCommand(sql, con)
Dim myreader As OleDbDataReader = cmd.ExecuteReader
Do While myreader.Read
ListBox1.Items.Add(myreader(0))
Loop
End Sub
以下是完整模块
Imports
System.Data
Imports
System.IO
Imports
System.Data.OleDb
Module
Module1
Public
cn
As
New
OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
Application.StartupPath
"\mdb数据库名字.mdb")
'定义连接
Public
DataBaseRST
As
Integer
'用来返回数据库执行结果
Public
Function
DataModify(ByVal
str
As
String)
As
Boolean
'进行数据库修改操作
Dim
cmdinsert
As
New
OleDbCommand
Try
cmdinsert.CommandText
=
str
cmdinsert.Connection
=
cn
If
cn.State
=
ConnectionState.Closed
Then
cn.Open()
DataBaseRST
=
cmdinsert.ExecuteNonQuery()
'用来返回执行的结果
cn.Close()
Return
True
Catch
ex
As
Exception
MessageBox.Show(Err.Description,
"Error",
MessageBoxButtons.OK,
MessageBoxIcon.Error)
Return
False
End
Try
End
Function
Public
Function
Search(ByVal
str
As
String,
ByVal
DGV
As
DataGridView)
As
Boolean
'查询
str---查询命令,DGV---DataGridView,用来显示数据的控件
Dim
tb
As
New
DataTable
Try
Dim
ap
As
New
OleDb.OleDbDataAdapter(str,
cn)
ap.Fill(tb)
DGV.DataSource
=
tb
Return
True
Catch
ex
As
Exception
MessageBox.Show(Err.Description,
"Error",
MessageBoxButtons.OK,
MessageBoxIcon.Error)
Return
False
End
Try
End
Function
End
Module
'以下是调用方法
DataModify("
insert
into
aa
values
('1','2')")'-------这里是数据库更新操作
Search("select
bb
from
aa",DataGridView1)'-----------这里是数据表查询操作