+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [SQL] ربط البرنامج بقاعدة البيانات sql (/showthread.php?tid=1629)
ربط البرنامج بقاعدة البيانات sql - manager5 - 20-01-14
بسم الله الرحمن الرحيم
اخواني الكرام السلام عليكم ورحمة الله وبركاتة
لدي قاعدة بيانات متصلة
تم ربط البرنامج معها
[code]Public Constr As String = "server=12345;database=*****;user id=12345;password=12345"
Dim dr As SqlDataReader
Public con As New SqlConnection(Constr)
Public ds As New DataSet
Public sqlstr As String = "select * from emp"
Public dsee As String = "select*from UserAccount"
اريد كل ما تغيرات البيانات في قاعدة البيانات تتغير في البرنامج
علما انها تتغير كل 10 ثواني تقريبا
تم ادراج البيانات في
DataGridView
المشكلة انهو يتم جلب البيانات ولكن لايتم التحديث ؟
RE: ربط البرنامج بقاعدة البيانات sql - أبوبكر سويدان - 21-01-14
السلام عليكم
ارفع برنامجك حتى تتضح الصورة.
RE: ربط البرنامج بقاعدة البيانات sql - manager5 - 21-01-14
بارك الله فيك ولك وشكرا لك على سرعة تجاوبك
اخي الكريم أبوبكر
هذي صورة توضح
كود :
Imports System.Data.SqlClient
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim row As DataGridViewRow = Me.DataGridView1.RowTemplate
row.DefaultCellStyle.BackColor = Color.Cornsilk
row.Height = 23
row.MinimumHeight = 20
Dim connectionString As String = "server=12345;database=12345_db;user id=12345;password=12345"
Dim sql As String = "select * from Daily"
Dim connection As New SqlConnection(connectionString)
Dim dataadapter As New SqlDataAdapter(sql, connection)
Dim ds As New DataSet()
connection.Open()
dataadapter.Fill(ds, "Daily")
connection.Close()
DataGridView1.DataSource = ds
DataGridView1.DataMember = "Daily"
End Sub
End Classهذي صيغة البرنامج
عند الضغط على زر التحميل يعمل 100%
لكن لايوجد تحديث اريد ان يحدث نفسة بنفسة