14-09-24, 11:36 PM
خلي كود في الـ Module :
كود :
Imports System.Data.OleDb
Module Module1
Public strConn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=alyat2.accdb;Jet OLEDB:Database Password="
Public con As New OleDbConnection(strConn)
Public Function ExScalar(cmdText As String) As Integer
Using pConn As New OleDbConnection(strConn) ' جملة الاتصال بقاعدة البيانات
pConn.Open()
Dim cmd As OleDbCommand = New OleDbCommand(cmdText, pConn)
Return cmd.ExecuteScalar()
End Using
End Function
End Moduleقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
