🔒 Closed Visual Studio Cod Database

Status
Not open for further replies.
so yan din ilalagay boss sa excel then kapag inupload sa database. ififilter ung ipapasok sa database para di maging redundant ung nasa database mo tama?
 
tama naman ung sabi nung nasa taas
kung di mo kaya o alam ang gagawin next time
ganito gawin mo
copy mo ung full code mo sa form .vb (for backup only)
then delete mo yung may error na .vb
tpos redesign mo nlng ulit ung form
thats the best solution

but i recommend that you should know how to debug your system
good luck sayo, pag patuloy mo lang yan
di masama mag tanong kaya tanong ka lang pag may problema pa
 
Bale po Sir naka manual database lang po ako ngayon excel gusto ko po sana iimport sa sqlserver para ayun na po magiging ref ni vbnet na gagawin po search lang naman po ang magiging purpose ni user sa system bale ako pong admin import export data para pag nag search sila realtime
 
[XX='emer0722, c: 1288441, m: 1449451'][/XX] Okay lang po di naman po nagmamadali gusto ko lang po mas maintindihan mula sa nakagawa na medyo hirap po kasi ako sundan mga nasa youtube. Salamat po
 
Pahelp po paturo po kapag po CS nasa combobox mag proceed po
1623737229517.png

1623737218645.png
 
Sir pwede po magpatulong paano ko po ipapasok dito yung condition na kapag equal sa admin or cs ang value ng combobox1 mag proceed po.



Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (String.IsNullOrEmpty(txtuser.Text) = True Or String.IsNullOrEmpty(txtpass.Text) = True) Then
MessageBox.Show("Please enter username and password")
Else
Dim con As SqlConnection = New SqlConnection("Data Source=DESKTOP-DILIAA0;Initial Catalog=mydataBase;Integrated Security=True")
con.Open()
Dim cmd As SqlCommand = New SqlCommand("Select * from TBLUSER where USERNAME='" + txtuser.Text + "' , PASSWORD='" + txtpass.Text + "'", con)
Dim sda As SqlDataAdapter = New SqlDataAdapter(cmd)
Dim dt As DataTable = New DataTable()
sda.Fill(dt)
con.Close()

If (dt.Rows.Count > 0) Then
MessageBox.Show("Login Successful")
KANGOFORM1.Show()
Me.Hide()
Else
MessageBox.Show("Incorrect Username or Password")
txtuser.Text = ""
txtpass.Text = ""
End If
End If
End Sub

1625011265012.webp
 
Status
Not open for further replies.

About this Thread

  • 78
    Replies
  • 2K
    Views
  • 10
    Participants
Last reply from:
PHC-Xes

Trending Topics

Online now

Members online
1,043
Guests online
1,333
Total visitors
2,376

Forum statistics

Threads
2,273,289
Posts
28,948,673
Members
1,235,689
Latest member
Sample123
Back
Top