Symbianize Forum

Most of our features and services are available only to members, so we encourage you to login or register a new account. Registration is free, fast and simple. You only need to provide a valid email. Being a member you'll gain access to all member forums and features, post a message to ask question or provide answer, and share or find resources related to mobile phones, tablets, computers, game consoles, and multimedia.

All that and more, so what are you waiting for, click the register button and join us now! Ito ang website na ginawa ng pinoy para sa pinoy!

101 Visual Basic and C# Code Samples for Visual Studio .Net

Status
Not open for further replies.
pede po ba magpaturo...

ano po ba ang error ng codes na ito..

Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
Dim da As New SqlClient.SqlDataAdapter
Dim ds As New DataSet
Dim sql As String
'Dim sqlarr(lstviewRentalSummary.Items.Count) As String
Dim entry(lstviewRentalSummary.Items.Count, lstviewRentalSummary.Columns.Count) As String
Dim x As Integer
Dim y As Integer

For x = 0 To lstviewRentalSummary.Items.Count - 1
'sqlarr(x) = "SELECT availability FROM video WHERE videoid= '" & lstviewRentalSummary.Items(x).SubItems(2).Text & "'"
For y = 0 To lstviewRentalSummary.Columns.Count - 1
entry(x, y) = Trim(lstviewRentalSummary.Items(x).SubItems(y).Text)
Next
'da = New SqlClient.SqlDataAdapter(sqlarr(x), cnn)
'da.Fill(ds, "video")
sql = "UPDATE video SET availability='FALSE' WHERE videoid= '" & lstviewRentalSummary.Items(x).SubItems(2).Text & "'"
execute_query(sql)
sql = "INSERT INTO customer_video (customerid,videoid,duedate,dateissue) VALUES ('" & entry(x, 0) & "', '" & entry(x, 2) & "', '" & entry(x, 7) & "', '" & entry(x, 8) & "')"
execute_query(sql)
sql = "INSERT INTO transaction VALUES ('" & entry(x, 0) & "', '" & entry(x, 2) & "', '" & txtCash.Text & "', '" & txtChange.Text & "', '" & entry(x, 8) & "')"
'(customerid,videoid,cash,change,dateissue)
execute_query(sql)
Next
MsgBox("Transaction Finish", MsgBoxStyle.Information)
End Sub

Private Sub execute_query(ByVal val As String)
Dim objcommand As New SqlClient.SqlCommand
cnn.Open()
objcommand = New SqlClient.SqlCommand
objcommand.Connection = cnn
objcommand.CommandText = val
objcommand.ExecuteNonQuery()
cnn.Close()
End Sub



anu pong error code, or runtime error?
 
tnx pho....kaso di ko maopen ung 101 C....pano pho b un?:weep:
 
Mga bosS gusto ko rin sana matUto mag vb 6 pROGRAMming penge naman po ng simple vb pROGRAM na may adD ,save ,delete ,edit na buTtoN.. :pray:
 
TS help nmn po... ung mga Link sa first page.. may mga Survey p pra ma unlock... pde po pa mirror nlang sa ibang link? thanks
 
ung link po para sa VB.net na mga code..di po maopen ng browser ko..
error po...
pa re-up naman po
 
salamat mga brader. . .lak italaga ng tulong nito kc baguhan ako. . .kelangan kc sa thesis nmin. .. hit thanks na. . .:clap:
 
Good afternun mga ka symbianize ! may tanung lang po aku regarding sa VB,

anu po bang code ang gagamitin para mapagana ung button na mag execute ng other application,

for example po button1 pag na click yung button1 mag oopen yung plants vs zombie na game,

yun po sana matulungan nyo po aku agad ! maraming salamat !
 
cnu po merong vb 8 d2?? ung full version >.< wala kc ko makita eh >.<
 
Status
Not open for further replies.
Back
Top Bottom