请高手指路:能给出vb.net连接sqlserver的代码啊,最好是全部的代码!

hoge66 2003-06-25 02:25:50
请高手指路:能给出vb.net连接sqlserver的代码啊,最好是全部的代码!顺便给出怎样用vb.net做报表的那就佩服的五体投地了!谢谢各位大侠拉!
...全文
150 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
980 2003-06-25
  • 打赏
  • 举报
回复
回复人: net_lover(孟子E章) ( ) 信誉:115 2003-6-24 23:49:19 得分:0



http://www.csdn.net/Develop/read_article.asp?id=16437



980 2003-06-25
  • 打赏
  • 举报
回复
安装vs.net。然后就用上了。给我感觉和vb连接数据库差不多
lysamper 2003-06-25
  • 打赏
  • 举报
回复
'连接sql数据库 server为数据库服务器 uid为用户名 pwd为用户密码 database为数据库id
Public Sub ConSql(ByVal Server As String, ByVal Uid As String, ByVal Pwd As String, ByVal DataBase As String)
Dim cnn As SqlConnection

cnn = New SqlConnection()
cnn.ConnectionString = "server=" & Server & ";uid=" & Uid & " ;pwd= " & Pwd & ";database=" & DataBase
Console.WriteLine(cnn.ConnectionString)
cnn.Open()
'If cnn.State = ConnectionState.Open Then
' Console.WriteLine("ok")
'End If
End Sub
lysamper 2003-06-25
  • 打赏
  • 举报
回复
Dim cnn As New SqlConnection()
cnn.ConnectionString = "user id=sa;password=sa;initial catalog=northwind;data source=localhost;Connect Timeout=30"
cnn.Open()
If cnn.State = ConnectionState.Open Then
Label1.Text = "ok"
End If
Dim sql As SqlCommand
sql = New SqlCommand("select * from products", cnn)
Dim reader As SqlDataReader
reader = sql.ExecuteReader()
DataGrid1.DataSource = reader
DataGrid1.DataBind()
reader.Close()
cnn.Close()
acewang 2003-06-25
  • 打赏
  • 举报
回复
up
胖胖熊 2003-06-25
  • 打赏
  • 举报
回复
很简单的你用DBOLECONNECTION,连接一下就可以得出代码了呵!!很全的!

16,718

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧