|
Are you using hardcoded paths?
have you tried copying the files from the release folder to a new folder somewhere e.g. on the desktop and also included the text files?
|
|
|
|
|
no i don't think so. I have been using the code
Dim value As String
value = Application.StartupPath
which shows up to the bin where the txt documetns are stored in
grrrrr lol
|
|
|
|
|
Just an update. THE PROGRAM NOW WORKS FROM THE BIN FOLDER (yipeeeeee)
however it still don't wanna be published (grrrrrrrr)
|
|
|
|
|
hi
Equivalent to the SQL code is?
Public Class Form1<br />
Public prgstr As String = Application.StartupPath<br />
Dim db As New ADODB.Connection<br />
Dim rs As New ADODB.Recordset<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
db.Provider = "Microsoft.Jet.OLEDB.4.0"<br />
db.Open("db.mdb")<br />
LoadTV()<br />
End Sub<br />
Private Sub LoadTV()<br />
'On Error Resume Next<br />
rs.Open("[Folder]", db, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)<br />
Dim K, I, J, L As Integer<br />
Dim T, R, Pr As String<br />
rs.MoveFirst()<br />
For I = 1 To rs.RecordCount<br />
K = rs.Fields("Level").Value<br />
If J < K Then J = K<br />
If Not rs.EOF Then rs.MoveNext()<br />
Next<br />
rs.MoveFirst()<br />
For I = 0 To J<br />
rs.MoveFirst()<br />
For L = 1 To rs.RecordCount<br />
K = rs.Fields("Level").Value<br />
T = rs.Fields("head").Value '*** TEXT<br />
R = rs.Fields("ID").Value '*** key = F+id<br />
Pr = rs.Fields("Parent").Value<br />
<br />
<br />
If I = 0 And K = 0 Then<br />
' TV.Nodes.Add("F" & R, T, "bc", "bo")<br />
TV.Nodes.Add(R, T, "bc", "bo")<br />
Else<br />
If K = I Then<br />
' TV.Nodes.Find("F" & Pr, True)(0).Nodes.Add("F" & R, T, "gc", "go")<br />
TV.Nodes.Find(Pr, True)(0).Nodes.Add(R, T, "gc", "go")<br />
End If<br />
End If<br />
<br />
My.Application.DoEvents()<br />
If Not rs.EOF Then rs.MoveNext()<br />
<br />
Next<br />
' If Not rs.EOF Then rs.MoveNext()<br />
<br />
Next<br />
rs.Close()<br />
'rs.Open("Matn", db)<br />
'rs.MoveFirst()<br />
'For I = 1 To rs.RecordCount<br />
' K = rs.Fields("Folder").Value<br />
' R = rs.Fields("ID").Value<br />
' T = rs.Fields("Head").Value<br />
' TV.Nodes.Find("F" & K, True)(0).Nodes.Add("M" & R, T, "mc", "mo")<br />
' If Not rs.EOF Then rs.MoveNext()<br />
'Next<br />
<br />
'rs.Close()<br />
<br />
<br />
End Sub<br />
Sub CloseDB()<br />
rs.Close()<br />
db.Close()<br />
End Sub<br />
<br />
<br />
Private Sub TV_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles TV.ItemDrag<br />
DoDragDrop(e.Item, DragDropEffects.Move)<br />
<br />
End Sub<br />
<br />
<br />
<br />
Private Sub CreateRoot(ByVal Parrent As Integer, ByVal Level As Integer, ByVal PText As String)<br />
Dim strsql As String<br />
Dim cmd As New OleDbCommand<br />
Level += 1<br />
If Con.State = ConnectionState.Closed Then<br />
Con.Open()<br />
End If<br />
strsql = "insert into [Folder] ([Level],Head,Parent) values (" & Level & ",'" & PText & "', " & Parrent & ")"<br />
cmd.Connection = Con<br />
cmd.CommandText = strsql<br />
cmd.ExecuteNonQuery()<br />
Con.Close()<br />
<br />
End Sub
|
|
|
|
|
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.”
|
|
|
|
|
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.”
|
|
|
|
|
|
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
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
