21-06-13, 11:29 PM
sajad كتب :السلام عليكم
يا اخي العزيز كيف تضع نص الاتصال بدون علامتي تنصيص!!!!
عدل الكود الى التالي:
كود :
Imports System.Data
Imports System.Data.SqlClient
Public Class f2
Dim con As String =Data Source=".\SQLEXPRESS;AttachDbFileName=|DataDirector y|\mydata.ndf;Integrated Security=True;"
Dim SQLStr As String = "SELECT * FROM Tabel1"
Dim Conn As New SqlConnection(con)
Dim DataSet1 As New DataSet
Private Sub f2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Conn.Open()
Dim DataAdapter1 As New SqlDataAdapter(SQLStr, Conn)
DataAdapter1.Fill(DataSet1, "Tabel")
Conn.Close()
Label1.DataBindings.Add("Text", DataSet1, "tabel1.ID")
TextBox1.DataBindings.Add("Text", DataSet1, "tabel1.Name")
TextBox2.DataBindings.Add("Text", DataSet1, "tabel1.money")
DateTimePicker1.DataBindings.Add("text", DataSet1, "tabel1.date")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
فعلت ماقلت لكن الصورة الاتيه توضح النتيجه

