- 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:
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.
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.