تقييم الموضوع :
  • 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 
الرد }}}



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


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