vb.netsql实例的简单介绍

谁能给个 vb.net 异步，多线程查询SQL数据实例。C/S程序的

1.配置SQLServer外围应用服务器,开启SQL2005远程连接功能：

成都创新互联公司认为，企业网站是要赋予品质、思维、人性，深入到用户内心的细腻情感，才能真正称得上企业网站。成都创新互联公司根据每位用户内心最深的需求网站建设服务，坚实的设计执行是品牌长期视觉塑造的重要支持。

操作方式如下，点击“配置工具”-“SQLServer外围应用配置器”，然后在打开的窗口中选择“服务和连接的外围应用配置器”-然后选择Database Engine节点下的 “远程连接”，选择“本地连接和远程连接”，同时选择“同时使用TCP/IP和named pipes”，确定后然后需要重新启动数据库服务就可以了。

2.把登陆设置改为SQLServer 和 Windows 身份验证模式，具体设置如下:

打开SQLServer Management Studio管理器，点击服务器上面右键然后查看属性，在安全性选项里面对服务身份验证选择“SQLServer 和 Windows 身份验证模式”。

你好！有没有vb.net对SQL数据库进行增删改查的例子

一般都是vb.net传入参数 交给存储过程去做的 你是要在vb.net前台就执行的例子 还是想要调用存储过程的例子

前台的一般就是这样

Dim paras As New NameValueCollection

paras .Append("delete from T_AlarmConfig ")

paras .Append(" where AlarmConfigID=@AlarmConfigID")

调用存储过程的就是给写存储过程了，这是调用存储过程的例子，只能理解理解

''' summary

''' 删除数据

''' /summary

''' param name="procName"存储过程名/param

''' param name="paras"存储过程参数/param

''' remarks

''' 2006-5-29　zhuzh Created

''' /remarks

Public Sub DeleteData(ByVal procName As String, _

ByVal paras As NameValueCollection, _

Optional ByVal timeout As Integer = 30)

eventCount += 1

'存储过程参数名数组

Dim paraNames As String() = {}

'存储过程参数值数组

Dim paraValues As String() = {}

'传入的参数转化成数组

Me.ConvertNameValueCollection(paras, paraNames, paraValues, STATUS_UPDATE)

'判断系统类型调用相应模块的方法

If isWebSys Then

DeleteDelegateInstance = AddressOf webGw.ExecProc

Else

DeleteDelegateInstance = AddressOf AdoGw.ExecProc

End If

Dim ret As Integer = 0

Dim ds As New DataSet

'----guojun 2008-1-2 add-----

If timeout 60000 Then

timeout = 60000

End If

'--------防止超时异常--------

DeleteDelegateInstance.BeginInvoke(procName, ret, ds, paraNames, paraValues, timeout, _

AddressOf DataDeletedCallBack, Nothing)

End Sub

如何用VB.NET中的listview显示SQL数据库中的数据？能给我个完整的实例吗？谢谢！

'数据库连接函数,其中mysql(数据集连接语句),sqlip(SQL服务器IP),rsmod(数据库打开模式)为动态取值

Public Function myRs(ByVal mySQL As String, ByVal sqlIP As String, ByVal rsMod As Integer) As ADODB.Recordset

Dim myConn As New ADODB.Connection

If myConn.State = 1 Then

myConn.Close()

End If

If rs.State = 1 Then

rs.Close()

End If

myConn.ConnectionString = "Provider = Sqloledb;SERVER=" sqlIP ";uid=sa;pwd=;database=school"

myConn.Open()

rs.Open(mySQL, myConn, 1, rsMod)

myRs = rs

End Function

'显示列表内容函数,该函数能显示两个子项

Public Function addLst() As Boolean

lstUser.Clear()

mySql = "select * from sqlusers"

rs = myRs(mySql, sqlIP, 1)

lstUser.View = View.Details

Dim i As Integer

If rs.Fields.Count 0 Then

'添加列表框列标题项目

For i = 1 To rs.Fields.Count

lstUser.Columns.Add(rs.Fields.Item(i - 1).Name)

Next

'添加列表框数据内容

If rs.RecordCount 0 Then

rs.MoveFirst()

For i = 1 To rs.RecordCount

lstUser.Items.Add(rs("用户名").Value)

lstUser.Items.Item(i - 1).SubItems.Add(rs("密码").Value)

lstUser.Items.Item(i - 1).SubItems.Add(rs("用户类型").Value)

rs.MoveNext()

Next

End If

End Function

以上是我刚刚写完的,调试通过,希望对你有用.

请各位大侠给出用VB.NET连接oracle数据库并执行sql查询语句的代码示例，谢谢！！

Dim OraSession As Object '会话对象

Dim OraDatabase As Object '数据库对象

Dim OraDynaset As Object'动态集对象

Dim OraDatabase As Object’字段集对象

Set OraSession =CreateObject("OracleInProcServer.XOraSession")

Set OraDatabase=OraSession.CreateDatabase

("Demo","scott/tiger",0)'建立数据库连接

Set OraDynaset=OraDatabase.CreateDynaset("select*from

student",0)'初始化动态集对象

’添加记录

'Begin an AddNew

OraDynaset.DbAddNew

OraDynaset.Fields("ID").value="1000"

’ID为列名

OraDynaset.DbUpdate'更新数据到表

’删除

OraDynaset.DbDelete

'修改

OraDynaset.DbEdit

OraDynaset.Fields("ID").value="101210"

OraDynaset.DbUpdate