23-12-17, 02:21 AM
هذا تعديل للكود
PHP كود :
Dim conn1 As New SQLiteConnection(String.Format("Data Source= {0}\BK\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
conn1.Open()
Dim cmd11cmd2sxcsxz As New SQLiteCommand(String.Format("SELECT age FROM DB{0} WHERE name= @name", strc), conn1)
cmd11cmd2sxcsxz.Parameters.AddWithValue("name", name .Text)
Dim rowCount11cmd2sxcsxz =(cmd11cmd2sxcsxz.ExecuteScalar())
If IsNothing(rowCount11cmd2sxcsxz) Then
MsgBox("nothing")
ElseIf IsDBNull(rowCount11cmd2sxcsxz) Then
MsgBox("age no")
ElseIf Not IsDBNull(rowCount11cmd2sxcsxz) Then
MsgBox("age = " & rowCount11cmd2sxcsxz)
End If

