terimakasih ya pak Akhmad semoga ilmu anda bertambah terus
Akhmad Aldi <[EMAIL PROTECTED]> wrote: klo ga
salah contohnya gini (ni yg INSERT-nya doank yg laen tinggal utek2 aja)..
misalkan ada tabel COBA(Alias as nvarchar(2),Nama as nvarchar(5)) di
database SESUKAMU dgn server 192.168.0.69
buat Store Procedure-nya di Query Analyzer
CREATE PROCEDURE SP_testing (@cepcep NVarChar(2), @copcop nvarChar(5)) AS
INSERT INTO AccessDesc_KC values (@cepcep,@copcop)
..... pastikan SP berhasil dibuat (sukses)
koding deh di VB
Private Sub TestingSP
Dim rConn As ADODB.Connection
Dim UserName, Passwd, DBase, ipServer As String
Dim Alias,Nama as String
On Error GoTo ErrHendle
Set rConn = New ADODB.Connection
Set rRec = New ADODB.Recordset
UserName = "sa"
Passwd = ""
DBase = "SESUKAMU"
ipServer = "192.168.0.69"
Alias="aa"
Nama="aldi"
sConnect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID="
& UserName & ";Password=" & Passwd & ";Initial Catalog=" & DBase &
";Data Source=" & ipServer
rConn.Open sConnect
rConn.Execute "sp_testing('" & Alias & "','" & Nama & "')"
rConn.Close
Set rConn = Nothing
Exit Sub
ErrHendle:
MsgBox "Error Description :" vbCrlf & "" & Err.Description, vbCritical
+ vbOKOnly, "Error" & Err.Number
End Sub
....... ada error ga?
On 11/3/06, uchenk dodit <[EMAIL PROTECTED]> wrote:
> hi para programmer indonesia......
> saya minta pencerahannya dong untuk buat store procedure
> simpan,edit,delete. Yang nantinya di panggil lewat VB.Klo bisa minta
> sample nya dari VB dan store procedurenya.
>
> mohon bantuannya ya........
> terimakasih banyak sebelumya
>
>
>
>
>
>
>
>
> ---------------------------------
> Want to start your own business? Learn how on Yahoo! Small Business.
>
> [Non-text portions of this message have been removed]
>
>
>
> Untuk berhenti berlangganan kirim email kosong ke :
> [EMAIL PROTECTED]
>
> Bagi terjangkit virus lokal, zip virus tersebut
> dan kirim ke [EMAIL PROTECTED], kami
> akan membuat removalnya untuk anda.
> Yahoo! Groups Links
>
>
>
>
>
---------------------------------
Access over 1 million songs - Yahoo! Music Unlimited Try it today.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/indoprog-vb/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
