16,549
社区成员
发帖
与我相关
我的任务
分享
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Text
Imports System.Collections.Generic
Public Class DBTool
Public Sub connect()
Dim strconnect As String
strconnect = "provider=SQLOLEDB;data source=.;initial catalog=pubs;user id=sa;password=;"
Dim conn As SqlConnection
conn = New SqlConnection(strconnect)
End Sub
Public Sub insertsql()
End Sub
Public Sub deletesql()
End Sub
Public Sub updatesql()
End Sub
Public Sub selectsql()
End Sub
End Class
Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class dboper
Private strconn As String = "provider=SQLOLEDB;data source=.;initial catalog=pubs;user id=sa;password=;"
Private connect As New OleDbConnection
Private adapter As New OleDbDataAdapter
'聯接初始化
Public Sub InitConnection()
Try
connect = New OleDbConnection(strconn)
If (connect.State = ConnectionState.Closed) Then
connect.Open()
End If
Catch ex As Exception
End Try
End Sub
'關閉聯接
Public Sub CloseConnection()
If (connect.State = ConnectionState.Open) Then
connect.Close()
End If
End Sub
'查詢返回一個表
Public Function getTable(ByVal sql As String) as DataTable
Try
Me.InitConnection()
Me.adapter = New OleDbDataAdapter(sql, Me.connect)
Dim dt As New DataTable
Me.adapter.Fill(dt)
Me.adapter.Update(dt)
Return dt
Catch e As Exception
End Try
End Function
Public Sub NoResultSQL(ByVal sql As String) ''insert,delete,update
Try
Me.InitConnection()
Me.adapter.SelectCommand = New OleDbCommand(sql, connect)
Me.adapter.SelectCommand.ExecuteNonQuery()
Catch e As Exception
End Try
End Sub
End Class
Public Sub DeleteX()
Public Sub UpdateX()
Public Sub AddNewX()