|
Hi All,
I'm using VB6 to retrieve the database table's schema. I have another routine that returns the some of the table Fields schema information, but it dosn't label the primary key field.
Here are the routines I'm using:
Private Sub List_DB_Tables(cnnDB As ADODB.Connection)
On Error GoTo List_DB_Tables_Err
Dim itmX As ListItem
Dim lngLen As Long
lvTables.ListItems.Clear
lvFields.ListItems.Clear
Set rstSchema = cnnDB.OpenSchema(adSchemaTables)
With rstSchema
Do Until .EOF
If (UCase(!TABLE_TYPE) = "ACCESS TABLE") Or (UCase(!TABLE_TYPE) = "SYSTEM TABLE") Then
.MoveNext
Else
Set itmX = lvTables.ListItems.Add(, , !TABLE_NAME)
Call AutoSizeColumn(lvTables, 0)
itmX.SubItems(1) = !TABLE_TYPE
Call AutoSizeColumn(lvTables, 1)
.MoveNext
End If
Loop
End With
List_DB_Tables_Exit:
On Error Resume Next
rstSchema.Close
Set rstSchema = Nothing
Exit Sub
List_DB_Tables_Err:
Msg = "Error in frmMainMenu - List_DB_Tables subroutine. " & vbCr & _
"Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & vbCr & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
Resume List_DB_Tables_Exit
End Sub
Private Sub List_Fields_In_Table(cnnDB As ADODB.Connection, strTable As String)
On Error GoTo List_Fields_In_Table_Err
Dim itmX As ListItem
Dim J As Integer
Dim fld As ADODB.Field
Dim prp As ADODB.Property
lvFields.ListItems.Clear
Set rstSchema = New ADODB.Recordset
strSQL = "SELECT " & strTable & ".* FROM " & strTable & ";"
rstSchema.Open strTable, cnnDB, , , adCmdTable
' Enumerate the Fields collection of the strtable
For Each fld In rstSchema.Fields
Set itmX = lvFields.ListItems.Add(, , fld.Name)
Call AutoSizeColumn(lvFields, 0)
itmX.SubItems(1) = FieldType(fld.Type)
Call AutoSizeColumn(lvFields, 1)
Next fld
'reset the dynamic array size
arryElements = lvFields.ListItems.Count
ReDim arryFields(arryElements)
'Load array with field names
For J = 1 To arryElements
arryFields(J) = lvFields.ListItems(J).Text
Next J
List_Fields_In_Table_Exit:
On Error Resume Next
rstSchema.Close
Set rstSchema = Nothing
Exit Sub
List_Fields_In_Table_Err:
Msg = "Error in frmMainMenu - List_Fields_In_Table subroutine. " & vbCr & _
"Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & vbCr & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
Resume List_Fields_In_Table_Exit
End Sub
|
|
|
|
|
Frequently I need to overlay new files to be tested on top of GA software. I have to search for the location of the where the original files reside, rename the original files, copy over the new files, run tests, then delete the overlay files and rename the originals back.
This can turn into a major headache if I have 50 files to overlay and they are in multiple directories!
I have searched high and low and I can't find any code/utility that can do any of this! I have created a utility toolbar in vb.net that and would like to add a tool that has this functionality – User points to location of files to be tested and tool places them in the proper location and backs up the originals. When the user is done the click another button and the originals are renamed back(I can handle this part!). Just looking for a point in the right direction to get started (or if someone knows of an object that does it already!!).
Thanks all!
Ern
|
|
|
|
|
Greetings!
I have made a report using a built in report form in vb6. It is working already. but my problem is when I add a new record to a certain database and view the report i made, it does not appear on it unless I close my program and run it again.
Just to make sure that the data is saved to the database, after entering the data and clicking save, I open the ms database and see to it if the record has been added or not. 100% it is there already but when I view my report attatch to my program, it does not appear there unless I quit my program and run again.
What is the posible cause of this of what shall i do to my program to make my report accurate.
Please help me...
Thank you very muc in advance....
|
|
|
|
|
Please post your code on the forum. It is easy for everyone to debug it.
|
|
|
|
|
Hello to all of you there....
I am new to Visual Basic Programming.
I just want to know How to find record in a ms Database? I am using Do while not rs.eof but I think if my database is populated with thousand of records it will run slow. So, is there any command or way how to find record in a database? Like in CLIPPER or FOXPLUS Language, I use SEEK <string> to find a record in a database.
Hope you could help me... thnka you very much.
|
|
|
|
|
Give the users the ability to format text, and someone will find a way to Abuse it. 
Use where in the query you use to get the recordset to specify what record you want.
Example:
strSQL = "select this, that from somewhere where something = " & somevalue
---
b { font-weight: normal; }
|
|
|
|
|
Greetings. I have a (Janus) datagrid on a windows form that includes a checkbox column (bound to a bit field in a SQL database). I have a save button on the form that calls the update method on the grid's underlying table's data adapter.
If you check the checkbox and then click the save button, it does not update because the edit from the checkbox control has not made it to the data table, so the row does not appear to be modified to the data adapter.
How can I detect when a grid edit control has been changed, but the data it is bound to has not? And how can I make the datatable pick up the chnage so I can call update on the data adapter?
Thank you very much.
RH
|
|
|
|
|
Hello,
I've been searching the net on how to execute a dialup connection and came up with the following code:
<br />
Imports System.Runtime.InteropServices<br />
<br />
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long<br />
Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Long) As Long<br />
Const scUserAgent = "ISP_Dialup"<br />
Const INTERNET_OPEN_TYPE_PRECONFIG = 0<br />
Public Function ConnectToSISP() As Boolean<br />
Dim hInternet As Long<br />
If InternetAttemptConnect(0) <> 0 Then Exit Function<br />
hInternet = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)<br />
ConnectToSISP = (hInternet <> 0) 'return False if hInternet=0<br />
End Function<br />
When my code reaches this point If InternetAttemptConnect(0) <> 0 Then Exit Function I receive a message that states PInvoke stack balance detected... A call to PInvoke function 'Project1!Project1.Dialup::InternetAttemptConnect' has unbalanced the stack.
I'm thinking maybe some how I am not referencing wininet.dll properly...any suggestions is greatly appreciated.
Rashar
|
|
|
|
|
Rashar wrote: Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Long) As Long
Try changing that to...
Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Integer) As Integer Hope that helps 
In fact I think InternetOpen will also throw this error - you will need to change the parameters lAccessType As Long and lFlags As Long to be Integers, as well as the return value.
You can use pinvoke.net[^] to look for Win32 API method signatures in C# and VB.Net.
“Accept that some days you are the pigeon, and some days you are the statue” -- David Brent
Cheers,
Will H
-- modified at 13:32 Thursday 4th May, 2006
|
|
|
|
|
Hello has anyone got a list of arrays and boolean methods that can be used when creating a sudoku solver, for VB.NET. If so could you please let me know.
Thank you
Passion
|
|
|
|
|
There are many examples of Soduku Solver applications on this site if you search the articles.
Current blacklist
svmilky - Extremely rude | FeRtoll - Rude personal emails | ironstrike1 - Rude & Obnoxious behaviour
|
|
|
|
|
i have a list of names in a database which appears in a combobox which i have created. i want to be able to delete a selected item from the combobox and database with a delete button but i don't know the code for that. please help me
|
|
|
|
|
Are you loading the combobox from the database using a subroutine? I have some code that does what you are asking for, but my methods might be a bit different. I'll get them put together and post it in a bit.
Quecumber256
|
|
|
|
|
Moveman,
Here is the code I have. I'll try to explain the method to my madness. BTW, you can use this code for both combo and list boxes.
Step 1 - Load the combo box using a subroutine.
Private Sub Load_lstCourses()
'Load the Student course listbox.
On Error GoTo Load_lstCourses_Err
Dim strItem As String
'Clearing the list box
lstCourses.Clear
'Load the lstCourse listbox
Set rsData = New ADODB.Recordset
strSQL = "SELECT * FROM usystblCourses WHERE (((usystblCourses.intDeleted)=False));"
rsData.Open strSQL, cnnMainDb, adOpenKeyset, adLockReadOnly
With rsData
Do While .EOF = False
lngCourse = !lngCourseID
strItem = !txtCourseName
lstCourses.AddItem strItem
lstCourses.ItemData(lstCourses.NewIndex) = lngCourse
.MoveNext
Loop
End With
Load_lstCourses_Exit:
On Error Resume Next
rsData.Close
Set rsData = Nothing
Exit Sub
Load_lstCourses_Err:
Msg = "Error in frmCourses - Load_lstCourses Subroutine. " & vbCr & _
"Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & vbCr & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
Resume Load_lstCourses_Exit
End Sub
Step 2 - Code to delete the selected item from the combobox. I'm using MS-Access as my DB
Private Function Delete_Course(lngCourse As Long) As Boolean
On Error GoTo Delete_Course_Err
cnnMainDb.BeginTrans
strSQL = "UPDATE usystblCourses SET usystblCourses.dtmModified = Now(), " & _
"usystblCourses.intDeleted = True WHERE " & _
"(((usystblCourses.lngCourseID) = " & [lngCourse] & "));"
Set cmdChange = New ADODB.Command
Set cmdChange.ActiveConnection = cnnMainDb
cmdChange.CommandText = strSQL
Set rsData = New ADODB.Recordset
rsData.Open "usystblCourses", cnnMainDb, , , adCmdTable
cmdChange.Execute
DoEvents
Msg = "Do you wish to delete " & lstCourses & "?"
intResponse = MsgBox(Msg, vbYesNo + vbDefaultButton2 + vbQuestion, "Deleting Cosmetology Course")
If intResponse = vbYes Then
cnnMainDb.CommitTrans
Delete_Course = True
Else
cnnMainDb.RollbackTrans
Delete_Course = False
End If
Delete_Course_Exit:
On Error Resume Next
rsData.Close
Set rsData = Nothing
Exit Function
Delete_Course_Err:
Msg = "Error in frmCourse - Delete_Course function " & vbCr & _
"Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & vbCr & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
Resume Delete_Course_Exit
End Function
Step 3 - Know which item you want to delete.
Private Sub cboCourses_Click()
lngCourse = CLng(cboCourses.ItemData(cboCourses.ListIndex))
End Sub
Step 4- Delete the item. I had a routine to check and make sure an item was selected before I deleted it.
Private Sub cmdDelete_Click()
If Is_Data_Present Then 'Checking routine
If Delete_Course(lngCourse) Then
Msg = lstCourses & " has been deleted."
MsgBox Msg, vbInformation, "Deleting item."
Else
Msg = lstCourses & " has NOT been deleted."
MsgBox Msg, vbInformation, "Deleting item."
End If
Else
Msg = "Before you can delete an item you must double click on the item name " & _
"you wish to delete. " & vbCr & _
"The item name must be placed into the Course Name box " & _
"before I can remove it from the database."
MsgBox Msg, vbInformation, "Deleting item."
End If
Call Load_lstCourses
txtCourse.Text = Empty
txtCourse.SetFocus
End Sub
I hope this helps,
Quecumber256
|
|
|
|
|
You will find lots of useful .Net material in this site
Visit this site
http://www.dotnetguide.co.nr
:->
|
|
|
|
|
|
i write integer in a textbox he transform to string
how i let him read integer
naganaga
|
|
|
|
|
All you need do is declare the variable you want to use.
for example:
Dim I as Integer
.........
.........
..........
End Sub
I believe this will solve your problem.
Yours,
Damilola
Dammy
|
|
|
|
|
I THINK YOU ARE ASKING
HOW TO CONVERT STRIN TO INTEGER
DIM N AS INTEGER
N= VAL(TEXT1.TEXT)
THIS IS HELP FULL TO U
sdgsdfsdfsdfsdfsdfsdfsdfsdfsdfsdf
|
|
|
|
|
how i can hide a part from file.pdf in any component windows in vb.net
comment je peux cacher une partie de file dans une formats pdf (f.pdf) par un tel chose qui demande de l'utilisateur username+password en langage vb.net si ce utilisateur le rempli justement alors le texte en entier s'ouvre
+ code
|
|
|
|
|
Hello VB gurus!
I’m a Java developer but I need to design an ASP application the will access database and extract records (employee data). Now, my question is like this. Normally in Java I would create an Employee class, which will mimic database design and hold employee data. After I get connection to DB I can loop through each record and create the Employee class instance to hold the data and assign it to Enumeration (which I later store in session for farther use).
Since I have no idea on how to do this in ASP maybe someone can help me with steps. My guess is that I do the same thing but….
1. How do I create .vb class?
2. How do I compile it?
3. How do I create instance of the class?
4. Can I use Enumeration to store instances of the class?
Thanks a lot for help. I will appreciate any help coming my way.
|
|
|
|
|
Hi is it possible to change the width of a standard scroll bar for an auto scroll panel? I expect its simple and was expecting a property on the the propertys but cannot see it.. VB.NET - VS2005
Kadi
-- modified at 9:15 Thursday 4th May, 2006
|
|
|
|
|
hi all,
i want to hide the page footer in the last page.
how can i do this .pls give me the code
thanks
vipin paliwal
|
|
|
|
|
hi frendz,
here is ur frend needs help regarding:
How to call/add chart object in a powerpoint slide by using vb.net lang?
I did in the following way.. just observer it
1) I add a referance of powerpoint in my application.
2) create a new object of powerpoint application
3) create a new object of presentation and add it to powerpoint object.
4) create a new slide object and add it to presentation object.
.......
I don't know what is the exact implementation coz ground level learner in thhis kind of the concepts.
do the needful for me
wish me as All The BEST.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
