24-10-13, 11:08 PM
السلام عليكم
- إستخدم هذا الكود :
- تحياتي .
- إستخدم هذا الكود :
كود :
Dim DB As ADODB.Connection
Private Sub Command1_Click()
DB.Execute "Insert Into [;DATABASE=" & App.Path & "\Stock.accdb;PWD=alrabiee123789].Table1 Select * From Table1 Where Name Not IN (Select Name From [;DATABASE=" & App.Path & "\Stock.accdb;PWD=alrabiee123789].Table1)"
MsgBox "تمت العملية بنجاح", vbInformation, "Sniper.ps"
End Sub
Private Sub Form_Load()
Set DB = New ADODB.Connection
DB.Open "provider = Microsoft.ACE.OLEDB.12.0; data source = " & App.Path & "\Stockpos.accdb;Jet OLEDB:Database Password=alrabiee123789;"
DB.CursorLocation = adUseClient
End Sub- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
