解决一个.NET联接SQL的问题
2002-12-13 09:06
645 查看
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlException
Public Class connect
Private s As String
Private s1 As String
Public Connect As New SqlConnection("server=Yiyang;database=KDERP;uid=sa;password=123")
Sub New()
Connect.Open()
End Sub
Public Property sql()
Get
Return s
End Get
Set(ByVal Value)
s = Value
End Set
End Property
'Public Property table()
' Get
' Return s1
' End Get
' Set(ByVal Value)
' s1 = Value
'End Property
Public Function Retable() As DataTable
Dim com As New DataSet()
Dim ada As New SqlDataAdapter()
Dim com1 As New SqlCommand()
com1.Connection = Connect
com1.CommandText = s
ada.SelectCommand = com1
ada.Fill(com, "t1")
Return com.Tables(0)
End Function
Public Function Exec() As Integer
Dim i As Integer
Dim com As New SqlCommand()
com.CommandText = s
com.Connection = Connect
i = com.ExecuteNonQuery()
Return i
End Function
Public Function Retdataset(ByVal t As String) As DataSet
Dim com As New SqlCommand()
com.Connection = Connect
com.CommandText = s
Dim ada As New SqlDataAdapter()
ada.SelectCommand = com
Dim da As New DataSet()
ada.Fill(da, t)
Return da
End Function
Public Function Retdataread() As SqlDataReader
Dim com As New SqlCommand()
com.Connection = Connect
com.CommandText = s
Return com.ExecuteReader
End Function
End Class
Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlException
Public Class connect
Private s As String
Private s1 As String
Public Connect As New SqlConnection("server=Yiyang;database=KDERP;uid=sa;password=123")
Sub New()
Connect.Open()
End Sub
Public Property sql()
Get
Return s
End Get
Set(ByVal Value)
s = Value
End Set
End Property
'Public Property table()
' Get
' Return s1
' End Get
' Set(ByVal Value)
' s1 = Value
'End Property
Public Function Retable() As DataTable
Dim com As New DataSet()
Dim ada As New SqlDataAdapter()
Dim com1 As New SqlCommand()
com1.Connection = Connect
com1.CommandText = s
ada.SelectCommand = com1
ada.Fill(com, "t1")
Return com.Tables(0)
End Function
Public Function Exec() As Integer
Dim i As Integer
Dim com As New SqlCommand()
com.CommandText = s
com.Connection = Connect
i = com.ExecuteNonQuery()
Return i
End Function
Public Function Retdataset(ByVal t As String) As DataSet
Dim com As New SqlCommand()
com.Connection = Connect
com.CommandText = s
Dim ada As New SqlDataAdapter()
ada.SelectCommand = com
Dim da As New DataSet()
ada.Fill(da, t)
Return da
End Function
Public Function Retdataread() As SqlDataReader
Dim com As New SqlCommand()
com.Connection = Connect
com.CommandText = s
Return com.ExecuteReader
End Function
End Class
相关文章推荐
- 一道褒贬不一的 SQL 考试题
- 一道褒贬不一的 SQL 考试题
- .NET中的DataReader简介
- 数据库连接字在Web.config里的用法
- DataGrid 链接Access数据库
- Rational Rose技术交流(一)
- JDBC连接SQLServer2000
- 没头没尾--项目开发笔记:面向业务的用户界面与面向对象的数据库如何连接
- 基于中间件的查询优化模型
- jdbc-odbc连接数据库
- 中文乱码问题
- 三层开发基本概念介绍
- PocketPC中SQLCE数据库同步
- 关于SQL Server的若干注意事项
- MySQL的转义字符“/”
- 单独使用CRecordSet
- 你会自定义SOAP头消息吗?
- 列出SQL SERVER数据库中所有表及字段信息
- 微软XML分析程序介绍
- Oracle8i与MS SQL SERVER之比较