تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
دالة واكوادsql
#1
السلام عليكم...
اريد دالة وكود الاتصال بالsql من نفس مجلد البرنامج اتصال غير مباشر
مع اكواد الاضافة.والتعديل والحذف.شكرا
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة:
#2
تفضل :

PHP كود :
'------------------------Select With DataSet Vb Code---------------------------'
 
Dim StrSQL as string "Select * From TableName"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename=|DataDirectory|\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim ds As New DataSet
 da
.Fill(ds,"TableName")
 If 
cn.State ConnectionState.Open Then cn.Close()
 
'------------------------Select With DataTable Vb Code---------------------------'
 
Dim StrSQL as string "Select * From TableName"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename="Application.StartupPath &"\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt
 If 
cn.State ConnectionState.Open Then cn.Close()
 
'------------------------INSERT With DataTable Vb Code---------------------------'
 
Dim StrSQL as string "INSERT INTO Castomer (ID,Castomer_Name,Castomer_Tel,Castomer_Mobaile,Castomer_Note ) VALUES ('" Txt_ID.Text  "','" Txt_Castomer_Name.Text  "','" Txt_Castomer_Tel.Text  "','" Txt_Castomer_Mobaile.Text  "','" Txt_Castomer_Note.Text "')"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename="Application.StartupPath &"\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt)
 If 
cn.State ConnectionState.Open Then cn.Close()
 
'------------------------Update With DataTable Vb Code---------------------------'
 
Dim StrSQL as string "UPDATE Castomer SET Castomer_Name='" Txt_Castomer_Name.Text "', Castomer_Tel='" Txt_Castomer_Tel.Text "', Castomer_Mobaile='" Txt_Castomer_Mobaile.Text "', Castomer_Note='" Txt_Castomer_Note.Text "' Where ID='" Txt_ID.Text "'"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename="Application.StartupPath &"\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt)
 If 
cn.State ConnectionState.Open Then cn.Close()
 
'------------------------Delete With DataTable Vb Code---------------------------'
 
Dim StrSQL as string "Delete From  Castomer  Where ID = '"Txt_ID.Text "'"
 
Dim TxtID As String =Txt_ID.Text
If MsgBox("هل أنت متأكد من حذف السجل المحدد " Txt_ID.TextMsgBoxStyle.YesNo MsgBoxStyle.Question MsgBoxStyle.MsgBoxRight MsgBoxStyle.MsgBoxRtlReading"حذف سجل") = MsgBoxResult.Yes Then
 Dim cn 
As New SqlConnection("Server=.\SQLExpress;AttachDbFilename="Application.StartupPath &"\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt)
 If 
cn.State ConnectionState.Open Then cn.Close()
 
MsgBox("تم حذف السجل المحدد "Txt_ID.Text &" بنجاح "MsgBoxStyle.Information MsgBoxStyle.MsgBoxRight MsgBoxStyle.MsgBoxRtlReading"حذف سجل")
 
End If 
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
#3
(26-03-19, 12:12 PM)asemshahen5 كتب : تفضل :

PHP كود :
'------------------------Select With DataSet Vb Code---------------------------'
 
Dim StrSQL as string "Select * From TableName"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename=|DataDirectory|\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim ds As New DataSet
 da
.Fill(ds,"TableName")
 If 
cn.State ConnectionState.Open Then cn.Close()
 
'------------------------Select With DataTable Vb Code---------------------------'
 
Dim StrSQL as string "Select * From TableName"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename="Application.StartupPath &"\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt
 If 
cn.State ConnectionState.Open Then cn.Close()
 
'------------------------INSERT With DataTable Vb Code---------------------------'
 
Dim StrSQL as string "INSERT INTO Castomer (ID,Castomer_Name,Castomer_Tel,Castomer_Mobaile,Castomer_Note ) VALUES ('" Txt_ID.Text  "','" Txt_Castomer_Name.Text  "','" Txt_Castomer_Tel.Text  "','" Txt_Castomer_Mobaile.Text  "','" Txt_Castomer_Note.Text "')"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename="Application.StartupPath &"\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt)
 If 
cn.State ConnectionState.Open Then cn.Close()
 
'------------------------Update With DataTable Vb Code---------------------------'
 
Dim StrSQL as string "UPDATE Castomer SET Castomer_Name='" Txt_Castomer_Name.Text "', Castomer_Tel='" Txt_Castomer_Tel.Text "', Castomer_Mobaile='" Txt_Castomer_Mobaile.Text "', Castomer_Note='" Txt_Castomer_Note.Text "' Where ID='" Txt_ID.Text "'"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename="Application.StartupPath &"\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt)
 If 
cn.State ConnectionState.Open Then cn.Close()
 
'------------------------Delete With DataTable Vb Code---------------------------'
 
Dim StrSQL as string "Delete From  Castomer  Where ID = '"Txt_ID.Text "'"
 
Dim TxtID As String =Txt_ID.Text
If MsgBox("هل أنت متأكد من حذف السجل المحدد " Txt_ID.TextMsgBoxStyle.YesNo MsgBoxStyle.Question MsgBoxStyle.MsgBoxRight MsgBoxStyle.MsgBoxRtlReading"حذف سجل") = MsgBoxResult.Yes Then
 Dim cn 
As New SqlConnection("Server=.\SQLExpress;AttachDbFilename="Application.StartupPath &"\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt)
 If 
cn.State ConnectionState.Open Then cn.Close()
 
MsgBox("تم حذف السجل المحدد "Txt_ID.Text &" بنجاح "MsgBoxStyle.Information MsgBoxStyle.MsgBoxRight MsgBoxStyle.MsgBoxRtlReading"حذف سجل")
 
End If 

اولا اشكرك جدا وسؤال هل ينفع استخدم اكواد الاكسس
في البحث او الاستعلام ام ماذا شكرا.
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة:
#4
ماذا تعني بأكواد أكسيس .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة: اسامه الهرماوي
#5
(26-03-19, 01:59 PM)asemshahen5 كتب : ماذا تعني بأكواد أكسيس .

-اعني اخي الاكواد المستخدمة مثل البحث وكود الاقتراح في الاكسس
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة:
#6
ضع كود مبسط عما تعني إذا كنت تقصد استعلام البحث نفس الاستعلام 

PHP كود :
Dim StrSQL as string "Select * From TableName Where ColomnName='" Txt_ColumnName.Text "'"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename=|DataDirectory|\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim ds As New DataSet
 da
.Fill(ds,"TableName")
 If 
cn.State ConnectionState.Open Then cn.Close()
 
Txt_FullName.Text=Dt.rows(0)("FullName").ToString 
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مساعد في انشاء دالة متغيرة لعرض التقرير alaa.alnaser91 0 64 10-10-20, 02:53 PM
آخر رد: alaa.alnaser91
  [سؤال] فيما يخص دالة Thread.Sleep(1000) عبد الهادي بهاب 5 260 12-09-20, 06:32 PM
آخر رد: عبد الهادي بهاب
  هل يوجد دالة مثيلة لـــ nvl من الاوراكل الى الاكسس بسام محمدغانم 4 405 04-04-20, 10:31 PM
آخر رد: بسام محمدغانم
  مثل دالة في اوراكل Decode بسام محمدغانم 3 438 04-04-20, 06:41 PM
آخر رد: ابو ليلى
  كيف اتجنب يتكرر خطاء الحذف في الداتا جريد فيو هذه دالة حذف بيانات من الداتاجريد فيو م بسام محمدغانم 2 514 12-12-19, 07:49 AM
آخر رد: بسام محمدغانم
  [VB.NET] كيفية انشاء دالة شبهة بدالة اكسل وهي AND khairallah 0 369 04-12-19, 03:29 PM
آخر رد: khairallah
  دالة لاضهار السنة الدراسية Adil Idabdellah 8 930 26-12-18, 10:37 PM
آخر رد: abdousoft
  [سؤال] كتابة دالة Simo1991 4 912 30-10-18, 09:05 PM
آخر رد: elgokr
  [VB.NET] دالة أقوى من SendKeys لمحاكاة الكيبورد sniperjawadino 2 834 23-10-18, 06:22 PM
آخر رد: sniperjawadino
  دالة الجمع في كريستل ريبورت makky 7 1,648 30-08-18, 07:01 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم