Private Sub Command1_Click()
Dim connado As New ADODB.Connection
Dim cmdado As New ADODB.Command
connado.ConnectionString = "Provider=MSDAORA.1;Data Source=ZEUS;Persist Security Info=False"
connado.Open connado.ConnectionString, "scott", "tiger"
strsql = "insert into dept (deptno,dname, loc) values (70,'bio','wash')"
connado.BeginTrans
cmdado.CommandText = strsql
cmdado.ActiveConnection = connado
cmdado.Execute
connado.CommitTrans
End Sub
-------------------------------
Réponse au message :
-------------------------------
> bon voilà je cherche un exmple d'une insertion dans une base oracle via VB
> une fois qu'il y a connexion à la base sous VB comment je fais:
> 1. pour envoyer ma requete insert into
> 2. commit
>
> Merci d'avance!!!!
>
> BenJ
|