 | Artikel Visual Basic |
| Basis Data - Database |
| Pemrograman Grafis |
| E-Book Tutorial |
| Video Kursus - Tutorial |
| Software - Open Source code |
| W E B Programming |
| Windows System |
| XBasicFramework |
| Berbagi Pengalaman |
| Quick Basic |
|
Software gratis! Open Source
Code
|
|
|
|
|
MENU>Artikel Visual Basic>Visual Basic 6.0 Database>Attach SQL Database
Attach Database Sql Server dengan Visual Basic 6.0
 |
| Attach database adalah kebalikan dari dettach. Jika dettach sama dengan melepaskan database, maka attach sama dengan memasang database pada sql server.
di bawah ini adalah script untuk attach db:
Public
Sub AttachDB(ByVal sDBName As String, ByVal sFileName As String)
sPass = ""
sPass = ""
sDBName = "XBLogistik"
Dim sConn As String
sConn = "Provider=SQLOLEDB.1;Password=" & sPass & ";Persist Security
Info=True;User ID=" & sUser & ";Initial Catalog=" & sDBName & ";Data
Source=."
ExecSP2Par "sp_attach_db", "@dbname", sDBName, "@filename", sFileName,
sConn
End Sub
Dibawah ini adalah sub prosedur untuk mengeksekusi Stored Procedure yang ada
di SQL Server:
Public Sub ExecSP2Par(SPName As String, sPar1Name,
sPar1Value, _ sPar2Name, sPar2Value, sConn As String)
On Error GoTo localErr
Dim oConn As New ADODB.Connection
oConn.open sConn Dim oPar1 As New ADODB.Parameter
Dim oPar2 As New ADODB.Parameter
Dim ocmd As New ADODB.Command
With ocmd
.ActiveConnection = oConn
.CommandType = adCmdStoredProc
.CommandText = SPName
Set oPar1 = .CreateParameter(sPar1Name, adVarWChar, adParamInput,
10000000, sPar1Value)
.Parameters.Append oPar1 Set oPar2 = .CreateParameter(sPar2Name, adVarWChar,
adParamInput, 10000000, sPar2Value)
.Parameters.Append oPar2 .Execute
End With
oConn.Close
Set oConn = Nothing
Exit Sub
localErr:
MsgBox Err.Description, vbCritical Resume Next
End Sub
sp_attach_db adalah stored prosedur bawaan sql server
yang berfungsi untuk memasang database. Anda bisa mencarinya dengan Enterprise Manager
di database master -> Stored Procedures | | |
|