What's new
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!

[help!!!]vb.net

CodingSource

CodingSource

The Loyalist
Advanced Member
Messages
514
Reaction score
0
Points
26
Meron po akong 2 tanong sa VB.NET:

1. Error: Unable to connect to any specified MySql hosts

I tried the code below:

Code: 
Dim conn As New MySqlConnection
        Dim cmd As New MySqlCommand
        Dim sSQL As String = String.Empty

        Try
            conn = New MySqlConnection("Server=sql3.freemysqlhosting.net;port=3306; user id=sql367336; password=xE6!xV2!; database=sql367336")
            conn.Open()
            cmd.Connection = conn
            cmd.CommandType = CommandType.Text
            sSQL = "INSERT INTO EncodingComplete ( Client, Address, Date_Bill, BusStyle_Name, Vessel, TIN, Port, [Pier No], InterPleader1, InterPleader2, Call_Date, Call_Time, Call_VoyageNo, Call_ReceiveBy, VesselType, VesselCalls, FixedFee_ExcessCum, FixedFee_Amount, FixedFee_Rate, FixedFee_Total, OilyExcessCum, OilyRate, OilyAmnt, OilyTotal, GarbageExcessCum, GarbageRate, GarbageAmnt, GarbageTotal, NoxiousExcessCum, NoxiousRate, NoxiousAmnt, NoxiousTotal, Other, OtherExcessCum, OtherRate, OtherAmnt, OtherTotal, DollarConvers, AmountDue, PaymentDetails, TypeofPayment, DateofPayment, OrNo, Amount, Collector, BI, CSR, InterPleader_Amnt)"
            sSQL = sSQL & "  VALUES(@client, @address, @date, @busStyle, @vessel, @tin, @port, @pier, @intpl1, @intpl2, @cDate, @cTime, @cVoyNo, @cRecBy, @VessType, @VessCalls, @fExcessCum, @fAmount, @fRate, @fTotal, @oilExcessCum, @oilRate, @oilAmnt, @oilTotal, @gExcessCum, @gRate, @gAmnt, @gTotal, @nExcessCum, @nRate, @nAmnt, @nTotal, @o, @oExcessCum, @oRate, @oAmnt, @oTotal, @dol, @amntDue, @PayDetails, @PayType, @PayDate, @OrderNo, @amnt, @col, @bi, @csr, @IntAmnt)"
            cmd.CommandText = sSQL

            cmd.Parameters.Add("@client", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.client.Text)) > 0, Me.client.Text, DBNull.Value)
            cmd.Parameters.Add("@address", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.address.Text)) > 0, Me.address.Text, DBNull.Value)
            cmd.Parameters.Add("@date", MySqlDbType.Date).Value = Me.Date_Bill.Text
            cmd.Parameters.Add("@busStyle", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.busStyle.Text)) > 0, Me.busStyle.Text, DBNull.Value)
            cmd.Parameters.Add("@vessel", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.Vessel.Text)) > 0, Me.Vessel.Text, DBNull.Value)
            cmd.Parameters.Add("@tin", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.TIN.Text)) > 0, Me.TIN.Text, DBNull.Value)
            cmd.Parameters.Add("@port", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.Port.Text)) > 0, Me.Port.Text, DBNull.Value)
            cmd.Parameters.Add("@pier", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.PierNo.Text)) > 0, Me.PierNo.Text, DBNull.Value)
            cmd.Parameters.Add("@intpl1", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.InterPleader1.Text)) > 0, Me.InterPleader1.Text, DBNull.Value)
            cmd.Parameters.Add("@intpl2", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.InterPleader2.Text)) > 0, Me.InterPleader2.Text, DBNull.Value)
            cmd.Parameters.Add("@cDate", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.Call_Date.Text)) > 0, Me.Call_Date.Text, DBNull.Value)
            cmd.Parameters.Add("@cTime", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.Call_Time.Text)) > 0, Me.Call_Time.Text, DBNull.Value)
            cmd.Parameters.Add("@cVoyNo", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.Call_VoyNo.Text)) > 0, Me.Call_VoyNo.Text, DBNull.Value)
            cmd.Parameters.Add("@cRecBy", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.Call_ReceivedBy.Text)) > 0, Me.Call_ReceivedBy.Text, DBNull.Value)
            cmd.Parameters.Add("@VessType", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.VesselType.Text)) > 0, Me.VesselType.Text, DBNull.Value)
            cmd.Parameters.Add("@VessCalls", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.VesselCalls.Text)) > 0, Me.VesselCalls.Text, DBNull.Value)
            cmd.Parameters.Add("@fExcessCum", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.fExcessCum.Text)) > 0, Me.fExcessCum.Text, DBNull.Value)
            cmd.Parameters.Add("@@fAmount", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.fAmnt.Text)) > 0, Me.fAmnt.Text, DBNull.Value)
            cmd.Parameters.Add("@fRate", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.fRate.Text)) > 0, Me.fRate.Text, DBNull.Value)
            cmd.Parameters.Add("@fTotal", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.fTotal.Text)) > 0, Me.fTotal.Text, DBNull.Value)
            cmd.Parameters.Add("@oilExcessCum", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.oilExcessCum.Text)) > 0, Me.oilExcessCum.Text, DBNull.Value)
            cmd.Parameters.Add("@oilRate", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.oilRate.Text)) > 0, Me.oilRate.Text, DBNull.Value)
            cmd.Parameters.Add("@oilAmnt", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.oilAmnt.Text)) > 0, Me.oilAmnt.Text, DBNull.Value)
            cmd.Parameters.Add("@oilTotal", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.oilTotal.Text)) > 0, Me.oilTotal.Text, DBNull.Value)
            cmd.Parameters.Add("@@gExcessCum", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.gExcessCum.Text)) > 0, Me.gExcessCum.Text, DBNull.Value)
            cmd.Parameters.Add("@gRate", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.gRate.Text)) > 0, Me.gRate.Text, DBNull.Value)
            cmd.Parameters.Add("@gAmnt", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.gAmnt.Text)) > 0, Me.gAmnt.Text, DBNull.Value)
            cmd.Parameters.Add("@gTotal", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.gTotal.Text)) > 0, Me.gTotal.Text, DBNull.Value)
            cmd.Parameters.Add("@nExcessCum", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.nExcessCum.Text)) > 0, Me.nExcessCum.Text, DBNull.Value)
            cmd.Parameters.Add("@nRate", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.nRate.Text)) > 0, Me.nRate.Text, DBNull.Value)
            cmd.Parameters.Add("@nAmnt", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.nAmnt.Text)) > 0, Me.nAmnt.Text, DBNull.Value)
            cmd.Parameters.Add("@nTotal", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.nTotal.Text)) > 0, Me.nTotal.Text, DBNull.Value)
            cmd.Parameters.Add("@o", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.other.Text)) > 0, Me.other.Text, DBNull.Value)
            cmd.Parameters.Add("@oExcessCum", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.otherExcessCum.Text)) > 0, Me.otherExcessCum.Text, DBNull.Value)
            cmd.Parameters.Add("@oRate", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.otherRate.Text)) > 0, Me.otherRate.Text, DBNull.Value)
            cmd.Parameters.Add("@oAmnt", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.otherAmnt.Text)) > 0, Me.otherAmnt.Text, DBNull.Value)
            cmd.Parameters.Add("@oTotal", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.otherTotal.Text)) > 0, Me.otherTotal.Text, DBNull.Value)
            cmd.Parameters.Add("@dol", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.dollarConvers.Text)) > 0, Me.dollarConvers.Text, DBNull.Value)
            cmd.Parameters.Add("@amntDue", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.amntDue.Text)) > 0, Me.amntDue.Text, DBNull.Value)
            cmd.Parameters.Add("@PayDetails", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.PaymentDetails.Text)) > 0, Me.PaymentDetails.Text, DBNull.Value)
            cmd.Parameters.Add("@PayType", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.PaymentType.Text)) > 0, Me.PaymentType.Text, DBNull.Value)
            cmd.Parameters.Add("@PayDate", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.PayDate.Text)) > 0, Me.PayDate.Text, DBNull.Value)
            cmd.Parameters.Add("@OrderNo", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.OrderNo.Text)) > 0, Me.OrderNo.Text, DBNull.Value)
            cmd.Parameters.Add("@amnt", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.PayAmnt.Text)) > 0, Me.PayAmnt.Text, DBNull.Value)
            cmd.Parameters.Add("@col", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.collector.Text)) > 0, Me.collector.Text, DBNull.Value)
            cmd.Parameters.Add("@bi", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.BI.Text)) > 0, Me.BI.Text, DBNull.Value)
            cmd.Parameters.Add("@csr", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.CSR.Text)) > 0, Me.CSR.Text, DBNull.Value)
            cmd.Parameters.Add("@IntAmnt", MySqlDbType.VarChar).Value = IIf(Len(Trim(Me.InterPleaderAmnt.Text)) > 0, Me.InterPleaderAmnt.Text, DBNull.Value)


            cmd.ExecuteNonQuery()

            MsgBox("Data has been save.", MsgBoxStyle.Information)


        Catch ex As Exception
            MsgBox(ErrorToString, MsgBoxStyle.Critical)
        Finally
            conn.Close()
        End Try

But it gives me the error: Unable to connect to any of the specified MySQL hosts

2. I created my software with a 32-bit computer, but can it support 64-bit computers??
Kasi yung kliyente ko 64-bit ang computer nya...pero kung saan ko ginawa yung software ko 32-bit. Kaya po ba suportahan ng software ko yung 64?? Ano po yung mga requirements?

Internet-based kasi ang software ko. Syempre may dlls.
 
change [Pier No] to `Pier No`.
64bit computers are backward compatible sa 32bit so a 32bit software is ok with the 64bit, ilalagay lang nya yung software sa (x86) na folder, but not 32bit to 64bit.
 
maskio said:
change [Pier No] to `Pier No`.
64bit computers are backward compatible sa 32bit so a 32bit software is ok with the 64bit, ilalagay lang nya yung software sa (x86) na folder, but not 32bit to 64bit.
Click to expand...

Ok sir maskio..will try that later.
 
Nagamit mo na ba ang Server/User details na yan dati? O first time pa lang at error agad?
 
You must log in or register to reply here.

Similar threads

T
need help vb.net
Replies
0
Views
475
taproot9
T
rijolo012593
[HELP]Updating data to database[VB.net/SQL Server]
Replies
11
Views
808
BadCoder
BadCoder
Back
Top Bottom