vb.net数据库名字,vbs 数据库

VB.NET 查询SQL数据库

sql服务器上需要有装oracle的client端(或者类似驱动)

创新互联是一家专业提供仙桃企业网站建设,专注与网站设计、网站制作、H5建站、小程序制作等业务。10年已为仙桃众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。

2. 在sqlserver的企业管理器里建一个链接服务器(DBlink)具体方法可以查一下帮助

3.

insert into sqlserver_table

select * from openquery(你建的dblink名称,'oracle的select语句')

openquery的语法可以查帮助出来

注意select语法是跟oracle的，要用引号括起来当字符串，ms要大写

很久之前做过的，希望能帮上，试试看吧：)

另外,虚机团上产品团购,超级便宜

匿名 ??span class="tm"7-21 02:14/span

/p

div class="b bt2"div class="bt bg1 ft"img alt="其他答案" height="16" src="/static/img/ico2.gif" width="16"/其他答案/div/div

p class="ft p1"1. sql服务器上需要有装oracle的client端(或者类似驱动)

2. 在sqlserver的企业管理器里建一个链接服务器(DBlink)具体方法可以查一下帮助

3.

insert into sqlserver_table

select * from openquery(你建的dblink名称,'oracle的select语句')

openquery的语法可以查帮助出来

注意select语法是跟oracle的，要用引号括起来当字符串，ms要大写

很久之前做过的，希望能帮上，试试看吧：)

vb.net向数据库添加数据（在线等待）

第一个问题，存储数据：

使用SqlCommand（如果是Sql的）：

Using

cmd

As

New

SqlCommand()

cmd.Connection

=

new

SqlConnection("server=.;database=数据库名;integrated

security=sspi")

cmd.Connection.Open()

cmd.CommandText=string.Format("Insert

into

表名字

Values('{0}','{1}'",您的第一个字符串变量，第二个字符串变量【如果是数值类型的，不要在索引前加单引号了】)

cmd.NonExecuteQuery();

'获取数据

SqlDataAdapter

adapter

=

new

SqlDataAdapter(cmd);

cmd.CommandText="select

*

from

表"

DataTable

dt

=

new

DataTable()

adapter.Fill(dt)

DataGridView.DataSource

=

dt

End

Using

vb.net 数据库操作如何判断数据库里有无一个数据库名

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] = '表名称')

使用这个命令，可以返回您定义的表中的所有列的名称了。

在vb.net中如何查询MDB数据库的数据

以下是完整模块

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)'-----------这里是数据表查询操作