|
miladbiranvand wrote: Equivalent to the SQL code is?
What SQL? What is the problem? Please be more specific, what is the error message? Where is it happening (run in debug to find out values).
Bob
Ashfield Consultants Ltd
Proud to be a 2009 Code Project MVP
|
|
|
|
|
I put the first 1 vote in, and the reason is simple;
You didn't take the hint when you posted your messages over the weekend, or listen to the comments I fed back to you then.
Here you are again, Monday morning and posting this cr@p.
You seriously need to FIFO. before you ask it stands for Fit In or F*** Off.
Chris put these stickies at the top of the forum for a reason. You indicated you read them in one of your comments, but clearly you haven't.
Your post is just asking for someone to do your work for you. WISE UP! Nobody is going to help you at this rate.
DO YOU UNDERSTAND?
|
|
|
|
|
Several people have marked your post as a bad question without being brave enough to tell you why.
Well so have I and here's why.
1) It is in no way clear what it is that you want.
2) You have surrounded your code with <code></code> tags. You should have used <pre></pre> tags, as they will retain formatting when you paste code between them, or allow you to put in formatting (indentation etc) on previously pasted code. If you used the 'inline code' widget (above the Text: box) then use the 'code block' one instead.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
im sorry.
example
in Access
dim da as new oledbdataadabtor
in sql
dim da as new sqldataadabtor
now
in Access
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
in sql = ????
-----
and
db.Provider = "Microsoft.Jet.OLEDB.4.0"
db.Open("db.mdb")
in sql = ????
in Access =
Private Sub LoadTV()
'On Error Resume Next
rs.Open("[Folder]", db, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
Dim K, I, J, L As Integer
Dim T, R, Pr As String
rs.MoveFirst()
For I = 1 To rs.RecordCount
K = rs.Fields("Level").Value
If J < K Then J = K
If Not rs.EOF Then rs.MoveNext()
Next
rs.MoveFirst()
For I = 0 To J
rs.MoveFirst()
For L = 1 To rs.RecordCount
K = rs.Fields("Level").Value
T = rs.Fields("head").Value '*** TEXT
R = rs.Fields("ID").Value '*** key = F+id
Pr = rs.Fields("Parent").Value
If I = 0 And K = 0 Then
' TV.Nodes.Add("F" & R, T, "bc", "bo")
TV.Nodes.Add(R, T, "bc", "bo")
Else
If K = I Then
' TV.Nodes.Find("F" & Pr, True)(0).Nodes.Add("F" & R, T, "gc", "go")
TV.Nodes.Find(Pr, True)(0).Nodes.Add(R, T, "gc", "go")
End If
End If
My.Application.DoEvents()
If Not rs.EOF Then rs.MoveNext()
Next
' If Not rs.EOF Then rs.MoveNext()
Next
rs.Close()
'rs.Open("Matn", db)
'rs.MoveFirst()
'For I = 1 To rs.RecordCount
' K = rs.Fields("Folder").Value
' R = rs.Fields("ID").Value
' T = rs.Fields("Head").Value
' TV.Nodes.Find("F" & K, True)(0).Nodes.Add("M" & R, T, "mc", "mo")
' If Not rs.EOF Then rs.MoveNext()
'Next
'rs.Close()
End Sub
in sql =???
Do you UNDERSTAND?
|
|
|
|
|
You still haven't come up with a specific problem you just want someone to rewrite the code to to use an SQL data provider instead of a JET provider.
I suggest that you break down your code into its functional blocks, and go read the documentation relating to System.Data namespace and the classes within, such as the SQLConnection, SQLCommand, SQLDataAdapter, SQLDataReader etc.
|
|
|
|
|
Does anyone with a friend ?
Me into your code by .
thank you.
|
|
|
|
|
miladbiranvand wrote: Does anyone with a friend ?
Me into your code by .
thank you
What? That's jibberish.
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
Take a look at this[^].
It is a tutorial on the process of converting ADO to ADO.Net.
Give it a try, and come back with specific questions about anything you cannot get to work.
Good Luck!
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
|
code is
Public Class Form1
Public DsCenter As New DataSet
Public Count As Integer = 1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FillDsCenter()
LoadTV()
End Sub
Public Sub FillDsCenter()
Dim StrSql As String
Dim da As New OleDbDataAdapter
If Con.State = ConnectionState.Closed Then
Con.Open()
End If
StrSql = "SELECT * FROM Folder"
da = New OleDbDataAdapter(StrSql, Con)
DsCenter.Clear()
da.Fill(DsCenter, "tbl")
Con.Close()
End Sub
Private Sub LoadTV()
Dim K, I, J, L As Integer '1
Dim T, R, Pr As String '2
Count = 1 '3
For I = 1 To DsCenter.Tables("tbl").Rows.Count '4
K = DsCenter.Tables("tbl").Rows(Count - 1).Item("Level") '5
If J < K Then J = K '6
If Not (Count = DsCenter.Tables("tbl").Rows.Count) Then Count += 1
Next 'ok
Count = 1 'ok
For I = 0 To J 'ok
Count = 1 'ok
For L = 1 To DsCenter.Tables("tbl").Rows.Count 'ok
K = DsCenter.Tables("tbl").Rows(Count - 1).Item("Level") 'ok
T = DsCenter.Tables("tbl").Rows(Count - 1).Item("head") 'ok
R = DsCenter.Tables("tbl").Rows(Count - 1).Item("ID") 'ok
Pr = DsCenter.Tables("tbl").Rows(Count - 1).Item("Parent") 'ok
If I = 0 And K = 0 Then 'ok
TV.Nodes.Add(R, T, "bc", "bo") 'ok
Else 'ok
If K = I Then 'ok
TV.Nodes.Find(Pr, True)(0).Nodes.Add(R, T, "gc", "go") 'ok
End If 'ok
End If 'ok
If Count <> DsCenter.Tables("tbl").Rows.Count Then Count += 1
Next
Next
'*** table matn
'Count = 1
'For I = 1 To DsCenter.Tables("tbl").Rows.Count
' K = DsCenter.Tables("tbl").Rows(Count - 1).Item("Folder")
' R = DsCenter.Tables("tbl").Rows(Count - 1).Item("ID")
' T = DsCenter.Tables("tbl").Rows(Count - 1).Item("Head")
' TV.Nodes.Find("F" & K, True)(0).Nodes.Add("M" & R, T, "mc", "mo")
' If Count <> DsCenter.Tables("tbl").Rows.Count Then Count += 1
'Next
End Sub
|
|
|
|
|
Hello Experts,
I want result in this format->Smart/Kidya.
where,
Str1=Smart
Str2=Kidya
How to do with VB.Net?
|
|
|
|
|
Dim str3 as string = str1 + "/" + str2
|
|
|
|
|
Are you serious?
This is such a beginner-level question and you have been around these forums for some time now. I find it hard to believe that you do not know how to do this.
Still.
There are several ways to do this.
You could use the String.Concat() method, look up the documentation.
You could use a StringBuilder instance with the Append() method, again, look up the documentation.
You could simply use the & operator or the + operator, LUTD.
There are many, many more ways but I think these are the most common.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
There are different ways;
The simplest is;
Dim x As String = "Fred"
Dim y As String = "Smith"
Dim z As String
z = x + "/" + y
or
Dim x As String = "Fred"
Dim y As String = "Smith"
Dim z As String
z = x & "/" & y
If you look up the string class in the documentation, there are others ways to do this also; including, concat, join.
You can also use a stringbuilder like;
Dim newString As New System.Text.StringBuilder
newString.Append(x)
newString.Append("/")
newString.Append(y)
Debug.WriteLine(newString)
|
|
|
|
|
VB.NET has the almighty & operator for problems like this.
It it too bad there are no books nor on-line documentation to tell you that.
Luc Pattyn
I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages
|
|
|
|
|
HELLO ALL;
Does anybody have idea how to do Natural order sorting in vb
e.g.
If i ahev entries like
1
2
11
111
A
AA
B
then it sors like
1
11
111
2
A
AA
AAA
B
So do u have any idea how to implement natural sort?
Thanx in advance
|
|
|
|
|
As you see, the sorting take in consideration the word lenght, so to get a "Natural" sorting you can formatting all the worlds to have the same lenght by concatenating 0 before each word.
For example, if you have
1
2
11
111
A
AA
B
so format them as following:
001
002
011
111
00A
0AA
00B
and now sort.
Hope it helps
Shay Noy
|
|
|
|
|
You can rely on Windows Explorer to do it for you, see here[^].
Luc Pattyn
I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages
|
|
|
|
|
Thanx for the quick reply
I thought of padding but there can be a seperator
e.g
A - 1
1 * A
2 # 5
which makes dificult to sort
do u have any idea what can be the solution in this case?
Thanx
|
|
|
|
|
either the items are valid file names and I gave you the answer already, or they aren't and you have to write code to do it yourself.
Luc Pattyn
I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages
|
|
|
|
|
Thanx Luc
I will try with P/invoke
if that doesnt solve the problem then manual sorting is the the best option
Thanx once again
|
|
|
|
|
Good Day All
I am working on a research project and stuck on a few things, one being how to get the memory footprint of operations run within a system.
I created (or busy creating) a system that runs a few techniques of some sort.
Once a technique is run, I would like to gather a few parameters from it.
The parameters are the ratio of the file size (already get this information), the time taken to run technique (already have this too), and the amount of memory the technique used when running (the problem).
I need some assistance with this if anyone knows the procedure in which best to get the amount of memory something uses when its run, and how to then get the memory usage.
Can someone please assist?
Thanks in advance!
|
|
|
|
|
Can you not use the diagnostics name space to query the process counters memory utilisation for your application?
Don't know how accurate it would be, but at least it is a start!
|
|
|
|
|
hi,
I have tried this and am sure i have done this before however i cannot think of the code needed.
All i want to do is copy the contents of textbox1 in form1 into textbox2 into form2
i am using a timer on form2. so on form2 load this is the code
i thought the code was textbox2.text = my.forms.form1.textbox1.text
however this does not work
please help me
thanks
|
|
|
|
|
I take it then you are wanting the code to be run in Form2 (on a button push for example, to retrieve the contents of form1.textbox1? as opposed to the form1 setting the text box on form2?
|
|
|
|