21-03-15, 11:52 AM
(آخر تعديل لهذه المشاركة : 22-03-15, 01:12 PM {2} بواسطة eng.kkalidali.)
السلام عليكم
الرجاء لمن يعرف كيف يفتح اتصال لل SQL
SQLCONN.OPEN()
لا تفتح عندي؟
If sqlconn.State = ConnectionState.Open Then
sqlconn.Close()
End If
SqlConn.Open()
Dim cmd As New SqlCommand("select idnumber from emplyees where idnumber= '" & TXTID.Text & "'", sqlconn)
Dim dr As SqlDataReader = cmd.ExecuteReader()
If dr.HasRows Then
MsgBox("رقم الهوية مسجل سابقا ", MsgBoxStyle.Exclamation)
TXTCERTIF.Select()
TXTCERTIF.Focus()
End If
الرجاء لمن يعرف كيف يفتح اتصال لل SQL
SQLCONN.OPEN()
لا تفتح عندي؟
If sqlconn.State = ConnectionState.Open Then
sqlconn.Close()
End If
SqlConn.Open()
Dim cmd As New SqlCommand("select idnumber from emplyees where idnumber= '" & TXTID.Text & "'", sqlconn)
Dim dr As SqlDataReader = cmd.ExecuteReader()
If dr.HasRows Then
MsgBox("رقم الهوية مسجل سابقا ", MsgBoxStyle.Exclamation)
TXTCERTIF.Select()
TXTCERTIF.Focus()
End If