|
I've written something similar for school before, but for text message. The hard part is figuring out how to pull the packets and you seem to have the packets pulled in anyhow. It's just a matter of understanding tcp/ip/ethernet protocol to read the correct bits to order the packets and reassemble the message.
It's been a while since that project, but if you have specific problems, you can post it and people will help you.
|
|
|
|
|
i have 2 problem
the first is:
i am dealing withe database my connection is
Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
"Data Source =" & Application.StartupPath & "\ITDSS.mdb"<br />
Public con As New OleDbConnection(ConStr)
i am deleting from it and it work smile.gif smile.gif
but after i close my project than i open it and i made run i found that the deleted record in the database ohmy.gif
after i delete i check only the database in the dubg file
how can i make it delete for ever
is the rong in the connection
the code is deleting and inserting will its runing after i close the project and rerun it agen in the database i found the deleted record
also i but the database in the debug fill but i found it in many folder insad my project fill
<br />
Dim sql As String = "SELECT * FROM [Section]"<br />
Dim sql2 As String = "SELECT * FROM Slot"<br />
Dim da As New OleDbDataAdapter(sql, con)<br />
Dim da2 As New OleDbDataAdapter(sql2, con)<br />
Dim ds As New DataSet<br />
Dim ds2 As New DataSet<br />
da.Fill(ds, "Section")<br />
da2.Fill(ds2, "Slot")<br />
Dim InsertCommand1 As New OleDbCommand<br />
Dim InsertCommand2 As New OleDbCommand<br />
con.Open()<br />
InsertCommand1.Parameters.Clear()<br />
InsertCommand1.Connection = con<br />
InsertCommand1.CommandText = "DELETE FROM [Section] WHERE SectionID=" & ComboBox105.Text<br />
InsertCommand1.CommandType = CommandType.Text<br />
InsertCommand1 = InsertCommand1<br />
Me.BindingContext(ds, "Section").EndCurrentEdit()<br />
da.Update(ds, "Section")<br />
InsertCommand1.ExecuteNonQuery()<br />
<br />
'to delet all the slot for the deleted section<br />
InsertCommand2.Connection = con<br />
InsertCommand2.CommandText = "DELETE FROM Slot WHERE SectionID=" & ComboBox105.Text<br />
InsertCommand2.CommandType = CommandType.Text<br />
InsertCommand2 = InsertCommand2<br />
Me.BindingContext(ds2, "Slot").EndCurrentEdit()<br />
da2.Update(ds2, "Slot")<br />
InsertCommand2.ExecuteNonQuery()<br />
con.Close()<br />
i delete from tow table
and this for insert
con.Open()<br />
Dim sql As String = "SELECT * FROM [Section]"<br />
Dim sql2 As String = "SELECT * FROM Slot"<br />
Dim da As New OleDbDataAdapter(sql, con)<br />
Dim da2 As New OleDbDataAdapter(sql2, con)<br />
Dim ds As New DataSet<br />
Dim ds2 As New DataSet<br />
da.Fill(ds, "Section")<br />
da2.Fill(ds2, "Slot")<br />
Dim InsertCommand1 As New OleDbCommand<br />
Dim InsertCommand2 As New OleDbCommand<br />
<br />
<br />
'---insrting section to section databace<br />
InsertCommand1.Parameters.Clear()<br />
InsertCommand1.Connection = con<br />
InsertCommand1.CommandText = "INSERT INTO [Section] ([SectionID],[CourseID],[Type],[TeacherID],[joinedSection],[Group],[Capacity]) VALUES (?,?,?,?,?,?,?)"<br />
InsertCommand1.CommandType = CommandType.Text<br />
InsertCommand1 = InsertCommand1<br />
Try<br />
InsertCommand1.Parameters.AddWithValue("?", Trim(CType(TextBox46.Text, Integer)))<br />
InsertCommand1.Parameters.AddWithValue("?", Trim(ComboBox99.Text))<br />
InsertCommand1.Parameters.AddWithValue("?", Trim(ComboBox102.Text))<br />
InsertCommand1.Parameters.AddWithValue("?", Trim(0))<br />
InsertCommand1.Parameters.AddWithValue("?", Trim(0))<br />
InsertCommand1.Parameters.AddWithValue("?", Trim(TextBox47.Text))<br />
InsertCommand1.Parameters.AddWithValue("?", Trim(0))<br />
da.InsertCommand = InsertCommand1<br />
InsertCommand1.ExecuteNonQuery()<br />
Catch ex As Exception<br />
MsgBox(ex, , "Alert")<br />
End Try<br />
Me.BindingContext(ds, "Section").EndCurrentEdit()<br />
da.Update(ds, "Section")
sorry about that but also i whant to ask about
can i update using this statment
sectionsforupdate.Tables("Slot").Rows(i).Item(0) = slot<br />
sectionsforupdate.AcceptChanges()<br />
|
|
|
|
|
asha_s wrote: how can i make it delete for ever
is the rong in the connection
For you to even ask that means you don't understand how databases work. You either connect, or you don't. If you're running the same version of the app ( release or debug ) both times, and your column disappears then reappears, it probably means that your UI is not showing it, but you never deleted it.
asha_s wrote: Dim sql As String = "SELECT * FROM [Section]"
Dim sql2 As String = "SELECT * FROM Slot"
Dim da As New OleDbDataAdapter(sql, con)
Dim da2 As New OleDbDataAdapter(sql2, con)
Dim ds As New DataSet
Dim ds2 As New DataSet
Your code would be easier to read if your variables had meaningful names.
asha_s wrote: ComboBox105.Text
You have 105 numbered combo boxes ? How do you know that combo105 is the right one ? This is probably your problem.
You're at least using paramerised queries, but it's still better to have a real data layer, IMO.
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
my connection is
Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
"Data Source =" & Application.StartupPath & "\ITDSS.mdb"<br />
Public con As New OleDbConnection(ConStr)
please if you now how i can solve this problem help me
yes i have 105combobox because i am Dealing withe big tables
tell me how can i make the ui connect to the db
please i need your help 
|
|
|
|
|
asha_s wrote: i am deleting from it and it work smile.gif smile.gif
but after i close my project than i open it and i made run i found that the deleted record in the database ohmy.gif
after i delete i check only the database in the dubg file
This is problably because the database file in your project is being copied to target build directories (Debug or Release) every time you run or rebuild the project, thereby overwriting the changes you made to the COPIES of database in those folders.
|
|
|
|
|
thinks it yes the file was a copy and it work now
but i want to ask about updating db can i use this way
If RichTextBox45.Text <> "" Then<br />
slot = 50405<br />
sectionsforupdate.Tables("Slot").Rows(i).Item(0) = slot<br />
i += 1<br />
End If<br />
sectionsforupdate.AcceptChanges()<br />
con.Close()<br />
becuse in table sectionsforupdate many record that have the sectionId
and the primary key is (slot,sectionid)
i want to update all the slot for that section
i bring all the record that have the sectionid and but it in sectionsforupdate without knowing the slotid i want to update the slot
so i but this code but its not working 
please help me
|
|
|
|
|
AcceptChanges doesn't do what your code is implying that you think it does. AcceptChanges tells the dataset that all of the changes it's keeping track of should be permanent, IN THE DATASET - NOT THE DATABASE. Call the Update method to write the changes made to the dataset back to the database.
|
|
|
|
|
thanks but 'Update' is not a member of 'System.Data.DataSet'.
and i con not use the comand becase i have many slot that have the same sectionid and i retreve all of them and i want to update colum (0) row by row how can i save the changes
please help if you can becuse i stop my project and trying to solve this problem
|
|
|
|
|
Sorry, you call Update on the DataAdpater or TableAdatper that was used to fill the DataSet/DataTable.
|
|
|
|
|
I need help on making a program, I need to create a project to compute your checking account balance.
Form Includes radio buttons to indicate the type of transaction: deposit, check, or service charge. A text box will allow the user to enter the amout of the transaction. Display the new balance in a Read Only text box or label. Calculate the balance by adding deposits, and subtracting service charge and checks. Include buttons for Calculate, clear and exit.
Add validation to it by display a message box if the new balance would be a negative number. If there is not enough money to cover a check, do not deduct the check amout. Instead, display a message box with the message "Insufficient Funds" deduct a service charge of $10.
Can anyone help me on this program.
|
|
|
|
|
antlex wrote: I need help on making a program, I need to create a project to compute your checking account balance.
What have you done so far?
You're not going to get the whole program written for you - read forum rule no.2. If you have no idea how to start, I suggest you buy a beginner's book on VB.NET and work your way through it. Then post again if you have specific programming questions.
Paul Marfleet
"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush
|
|
|
|
|
Sure - here's your help. Do your own homework. If I did it for you, then what would you have learned ? Why do people think this is the way to pass a computer science course ?
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
I am haveing a problem with inserting data in to database and i am using vb.net 2005 this what i have done
Dim ds As New DataSet<br />
Dim da As OleDb.OleDbDataAdapter<br />
Dim sql As String<br />
<br />
sql = "SELECT * FROM Books"<br />
da = New OleDb.OleDbDataAdapter(sql, MyConn)<br />
Dim cb As New OleDb.OleDbCommandBuilder(da)<br />
Dim dsNewRow As DataRow<br />
<br />
i am getting error in bottom bold line it says "Object reference not set to an instance of an object."<br />
<big>dsNewRow = ds.Tables("Books").NewRow()</big><br />
<br />
dsNewRow.Item("Title") = txtQ.Text<br />
dsNewRow.Item("Year") = "1990"<br />
dsNewRow.Item("Pages") = "500"<br />
dsNewRow.Item("ISBN") = "111-999-8989"<br />
dsNewRow.Item("URL") = "www.dk.com"<br />
dsNewRow.Item("Picrure") = "www.dk.co.uk"<br />
ds.Tables("Books").Rows.Add(dsNewRow)<br />
<br />
da.Update(ds, "Books")
i have also try this but still i am having a same problem
(VB 2005 Express Edition users: don't forget to add the references! Click Project > Add References. Locate System.Data.dll and System.Xml.dll on the NET tab. Select these items and click OK. Then add Imports System.Data at the very top of your code window.)
any help 
thanks
have a nice day
|
|
|
|
|
Have you tried stepping through your code with the debugger to identify the source of the problem? I suggest you familiarize yourself with the concept of debugging if you are not sure what it is.
Unless I am missing something, it doesn't appear as if your DataSet object is assigned any tables. Therefore any attempt to reference a table called 'Books' will throw an error.
Paul Marfleet
"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush
|
|
|
|
|
pmarfleet wrote: it doesn't appear as if your DataSet object is assigned any tables
He's only declared ds, but has not done anything with it...
"Any sort of work in VB6 is bound to provide several WTF moments." - Christian Graus
|
|
|
|
|
Precisely my point. It does surprise me when people ask questions like this, i.e. where the source of the problem can quickly be found by simply stepping through the code.
Paul Marfleet
"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush
|
|
|
|
|
hello
first of all thank you very much for your rep.
yes i have stepinto it and it shows that
value for dsNewRow = nothing
waiting for your rep.
thanks you
|
|
|
|
|
Of course it shows Nothing. The statement bombed out because you tried to call the NewRow method on an object that didn't exist. You're looking at the wrong thing. Does the "Books" table exist in that DataSet?? I don't think so...
|
|
|
|
|
I have been researching on this topic for month now but without result......
am trying to put controls on a layered window dat uses per-pixel transparency using updatelayeredwindow function...
although the controls work perfectly yet they r not visible since the entire content of the window is supplied by the updatelayeredwindow function.
The controls which i need to put on the layered form are all owner-drawn ( usercontrols made by me )
i could have drawn them to a common bitmap which will be passed to updatelayeredwindow, but this means that i will have to call the updatelayaredwindow function each time one or more than one controls update their "drawing".....which will slow down my app.....
in the link which i have provided below, the article explains a mechanism of redirection which the setlayeredwindowattributes function uses to calculate alpha value AND paint all child controls on the form......i wonder if i can use this redirection mechanism with updatelayeredwindow too to let windows paint the controls as well as letting me assign a 32bpp bitmap for the background of the form........
Can anyone please help ?
Currently am using 2 different forms for "mimicking" a layered window with controls.....am moving these forms together pretty fast with "deferwindowpos" api.......but since my app is a media player with intended skining abilities like konfabulator, it is becoming increasingly difficult to provide a free form skin due to the 2 different forms....it would be particularly helpful if i can use controls ona layered window without having to paint them all myself....
ANY HELP WILL BE GREATLY APPRECIATED........
here are a few links that might of help :
http://www.freepatentsonline.com/US6549218.html
|
|
|
|
|
Iam using HTTP to call web service without SOAP. It gives Error: 500"
Please anyone tell whats the error.
Actually its status is not 200.
Is there any other method to call webservice using vb6 without SOAP?
Here is my code below:
Public Function Run_WebService(ByRef InForm As Form, ByVal CaseNo As Integer) As Boolean
On Error GoTo Catch
Dim IsOk As Boolean
Dim StrResults As String
Dim ObjXMLHTTP As Object
Dim ObjXMLDOM As Object
Const WebSite As String = "http://localhost/MyService/MyWebService.asmx/"
Dim iPos As Long, jPos As Long
Dim MakeParameters As String
IsOk = False
Set ObjXMLHTTP = CreateObject("Microsoft.XMLHTTP")
Set ObjXMLDOM = CreateObject("Microsoft.XMLDOM")
Select Case CaseNo
Case 1
With ObjXMLHTTP
.Open "GET", WebSite & "MyProduct?ID=5" , False ', "sa", "password"
.Send
DoEvents
If .Status = 200 Then 'is ok
'Load the XML document from the webservice
ObjXMLDOM.loadXML .ResponseText
'check if there are any errors
If ObjXMLDOM.parseError.ErrorCode <> 0 Then
MsgBox .ResponseText
IsOk = False
Else
'Get the results
StrResults = ObjXMLDOM.GetElementsByTagName("string").Item(0).Text
'iPos = InStr(1, StrResults, "<code>", vbTextCompare)
'iPos = iPos + Len("<code>")
'jPos = InStr(1, StrResults, "</code>", vbTextCompare)
'If Val(jPos) = 0 Then
' StrResults = "Invalid Country."
'Else
' StrResults = Mid$(StrResults, iPos, jPos - iPos)
'End If
'InForm.txtResults(0).Text = StrResults
IsOk = True
End If
Else
MsgBox "ERROR - " & .Status, vbCritical, "ERROR"
IsOk = False
End If
End With
End Select
ExitFunction:
Set ObjXMLHTTP = Nothing
Set ObjXMLDOM = Nothing
StrResults = vbNullString
Run_WebService = IsOk
Exit Function
Catch:
MsgBox Err.Description
End Function
Thanks & Regards
Kumaran
|
|
|
|
|
|
hello sir to(Christian Graus)
![Rose | [Rose]](https://codeproject.global.ssl.fastly.net/script/Forums/Images/rose.gif)
first of all thank you very much for your all help and i have done it and it's working fine
this is what i have done
Private Sub Display()<br />
Dim NV As Integer<br />
' Open the database.<br />
MyConn = GetDbConnection()<br />
If AskedQ >= MyRecords Then<br />
MsgBox("Hello there is only " & MyRecords & " records in database" & vbCrLf & _<br />
"So please enter " & MyRecords & " or less then " & MyRecords, MsgBoxStyle.Exclamation)<br />
For AI As Integer = 0 To MyRecords<br />
Asked(AI) = False<br />
sorted_indexes.Remove(AI)<br />
Next<br />
AskedQ = 0<br />
lblA.Text = ""<br />
If MsgBox("Would you like to randomize again...?", MsgBoxStyle.Information) = MsgBoxResult.Yes Then<br />
Else<br />
<br />
Exit Sub<br />
End If<br />
Else<br />
' Generate the indexes.<br />
Dim MyRand As New Random<br />
Dim I As Integer<br />
<br />
Do<br />
NV = MyRand.Next(0, MyRecords - I)<br />
Loop Until Asked(NV) = False<br />
Asked(NV) = True<br />
AskedQ += 1<br />
' Save tjhe new value.<br />
indexes(I) = NV<br />
sorted_indexes.Add(NV, NV)<br />
MyQuery = "SELECT * FROM Books " & "WHERE Index=?"<br />
MyCmd = New OleDbCommand(MyQuery, MyConn)<br />
Dim i2 As Integer<br />
' Fetch record i.<br />
Dim index As Integer = indexes(i2)<br />
MyCmd.Parameters.Clear()<br />
MyCmd.Parameters.Add(New OleDbParameter("Index", index))<br />
Dim reader As OleDbDataReader = MyCmd.ExecuteReader(CommandBehavior.SingleRow)<br />
reader.Read()<br />
lblA.Text = reader.Item(i2).ToString<br />
' Close the connection.<br />
MyConn.Close()<br />
MyConn.Dispose()<br />
End If<br />
End Sub
thanks a lot sir
keep helping people like me 
|
|
|
|
|
*grin* glad to help.
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
I have defined an enumeration in my c++ dll. Can I use that same enumeration in my visual basic code? I guess my question is if I can export an enumeration from c++/ then import it into my visual basic apps. I know how to use Declare Function/Sub to import functions from c++ dll, but don't know if I can import an enum. I've been googling, but has no luck.
Thanks
|
|
|
|
|
You can't import an enum but you can define it, in VB.NET, so that the byte layout is the same.
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
