.net配置文件和数据库

lxs25451413500 2009-08-03 08:09:52
.net配置文件的内容和属性是什么?
连接数据库有几种方式?
.net连接数据库有几种方法?
.net提供数据库连接工具吗?是什么?
谢谢大家给个回答
...全文
67 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
xunis 2009-08-07
  • 打赏
  • 举报
回复
<connectionStrings>
<add name="ConnectionString" connectionString="Data Source=.;Initial Catalog=DBAccess1;Persist Security Info=True;User ID=sa;Password=19861012" providerName="System.Data.SqlClient"/>
</connectionStrings

xunis 2009-08-07
  • 打赏
  • 举报
回复
Imports System.Data
Imports System.Data.Common
Imports System.Configuration
Imports System.Data.SqlClient '引用數據庫服務

Module Module1
Public g_CN As SqlConnection

Private Sub GetConnection()
Dim conn As New SqlConnection
conn.ConnectionString = ConfigurationManager.ConnectionStrings.Item("ConnectionString").ToString
conn.Open()
g_CN = conn
End Sub

Public Function GetDataSet(ByVal strSQL As String) As DataSet
Dim ds As DataSet = New DataSet '聲明數據表 Dim ds As New DataSet
Try
'初始化適配器
Dim da As SqlDataAdapter
'打開數據庫鏈接
If g_CN Is Nothing Then
GetConnection()
End If
ds.Clear()
'將數據庫和適配器鏈接在一起
da = New SqlDataAdapter(strSQL, g_CN)
'將數據放到數據集中
da.Fill(ds)
Catch ex As Exception
MsgBox("GetDataSet出错!")
End Try
Return ds
End Function

Public Function ExecuteSQL(ByVal strSQL As String) As Integer
'數據命令
Dim comm As SqlCommand = New SqlCommand()
Dim iReturn As Integer = 0
'打開數據庫鏈接
If g_CN Is Nothing Then
GetConnection()
End If
comm.Connection = g_CN
comm.CommandType = CommandType.Text
comm.CommandText = strSQL
iReturn = CInt(comm.ExecuteNonQuery.ToString)
Return iReturn
End Function


End Module

16,554

社区成员

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

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