?? classdataconn.vb
字號(hào):
'************************************************************
'Copyright(c) 2007 長(zhǎng)沙南方職業(yè)學(xué)院 信息系 軟件2-061班
'All rights reserved
'
'程序名稱(chēng):學(xué)校基本信息管理系統(tǒng)
'
'作者(原):易湘陵
'完成日期:2007-11-12
'作者(改):
'修改日期:
'************************************************************
Public Class ClassDataConn
Private SERVERADDRESSSTR As String = ""
Public DataConStr = "workstation id=" & SERVERADDRESSSTR & ";packet size=4096;integrated security=SSPI;data source=" & SERVERADDRESSSTR & ";persist security info=False;initial catalog=school"
Public Property ServerAddress() As String
Get
Return SERVERADDRESSSTR
End Get
Set(ByVal Value As String)
SERVERADDRESSSTR = Value
End Set
End Property
Public Function ExecSql(ByVal SqlStr As String) As DataSet
Dim ds As New DataSet
Dim Con As SqlClient.SqlConnection
Try
Con = New SqlClient.SqlConnection(FrmMain.DBCONN.DataConStr)
Dim Da As New SqlClient.SqlDataAdapter(SqlStr, Con)
Con.Open()
Da.Fill(ds, "info")
Catch ex As Exception
MsgBox(ex.Message)
Finally
Con.Close()
End Try
Return ds
End Function
End Class
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -