21-06-13, 11:12 PM
(آخر تعديل لهذه المشاركة : 21-06-13, 11:15 PM {2} بواسطة basilnissany.)
مافيش مشكلة السورس كود بتاعى كالاتى
إقتباس :Imports System.Data
Imports System.Data.SqlClient
Public Class f2
Dim con As String =Data Source=.\SQLEXPRESS;AttachDbFileName=|DataDirectory|\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

