samaneh69
جمعه 18 دی 1388, 15:58 عصر
لطفا ک زیر بررسی کنید :
Imports System.Data.SqlClient
Public Class Login
Dim connectionstring As String
Dim cnn As SqlConnection
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim sqlcmd, sqlcmd1 As New SqlCommand
sqlcmd.Connection = cnn
sqlcmd.CommandText = ("select Username from User where Username like '" + t1.Text + "'")
sqlcmd.ExecuteNonQuery()
If t1.Text = sqlcmd.CommandText And t2.Text = sqlcmd1.CommandText Then
If Type.R1.Checked Then
main.searchToolStripMenuItem.Enabled = True
main.insertToolStripMenuItem.Enabled = True
main.ReportToolStripMenuItem.Enabled = True
main.reportprintToolStripMenuItem.Enabled = True
main.printsetupToolStripMenuItem.Enabled = True
Else
main.searchToolStripMenuItem.Enabled = True
main.insertToolStripMenuItem.Enabled = True
main.ReportToolStripMenuItem.Enabled = True
main.reportprintToolStripMenuItem.Enabled = True
main.printsetupToolStripMenuItem.Enabled = True
End If
MsgBox("شما با موفقیت وارد سیستم شدید")
End If
Me.Close()
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
Private Sub Login_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
cnn.Close()
End Sub
Private Sub Login_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
connectionstring = "Data Source=91d5009cc42e42f;Initial Catalog=OlumvaTahghighat;Integrated Security=True "
cnn = New SqlConnection(connectionstring)
Try
cnn.Open()
Catch ex As Exception
MsgBox("Can not Open Connection!", MsgBoxStyle.Exclamation = MsgBoxStyle.OkOnly, "Error")
End Try
End Sub
End Class
خطا از کد:
sqlcmd.ExecuteNonQuery
پیغام خطا:
sqlException was unhandled
Incorrect syntax near the keyword 'User'
من خیلی مبتدی هستم.
لطفا یا کد رو ویرایش کنید و در این قسمت قرار دهید ویا راهنمایی کنید.
ممنون
Imports System.Data.SqlClient
Public Class Login
Dim connectionstring As String
Dim cnn As SqlConnection
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim sqlcmd, sqlcmd1 As New SqlCommand
sqlcmd.Connection = cnn
sqlcmd.CommandText = ("select Username from User where Username like '" + t1.Text + "'")
sqlcmd.ExecuteNonQuery()
If t1.Text = sqlcmd.CommandText And t2.Text = sqlcmd1.CommandText Then
If Type.R1.Checked Then
main.searchToolStripMenuItem.Enabled = True
main.insertToolStripMenuItem.Enabled = True
main.ReportToolStripMenuItem.Enabled = True
main.reportprintToolStripMenuItem.Enabled = True
main.printsetupToolStripMenuItem.Enabled = True
Else
main.searchToolStripMenuItem.Enabled = True
main.insertToolStripMenuItem.Enabled = True
main.ReportToolStripMenuItem.Enabled = True
main.reportprintToolStripMenuItem.Enabled = True
main.printsetupToolStripMenuItem.Enabled = True
End If
MsgBox("شما با موفقیت وارد سیستم شدید")
End If
Me.Close()
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
Private Sub Login_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
cnn.Close()
End Sub
Private Sub Login_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
connectionstring = "Data Source=91d5009cc42e42f;Initial Catalog=OlumvaTahghighat;Integrated Security=True "
cnn = New SqlConnection(connectionstring)
Try
cnn.Open()
Catch ex As Exception
MsgBox("Can not Open Connection!", MsgBoxStyle.Exclamation = MsgBoxStyle.OkOnly, "Error")
End Try
End Sub
End Class
خطا از کد:
sqlcmd.ExecuteNonQuery
پیغام خطا:
sqlException was unhandled
Incorrect syntax near the keyword 'User'
من خیلی مبتدی هستم.
لطفا یا کد رو ویرایش کنید و در این قسمت قرار دهید ویا راهنمایی کنید.
ممنون