Re: how to view obj with direct x 8 vb6 - Visual Basic Discussion Boards

First Prev Next

Re: xml with control createinfo

Dave Kreskowiak16-May-22 10:58

Dave Kreskowiak

16-May-22 10:58

You cannot adapt that code to work in Windows Forms, at all.

If there any benefit to using Windows Forms over WPF? Sure, the learning curve for Windows Forms is much easier compared to WPF. The advantage WPF has over Windows Forms is incredible power to create a UI over what is possible in Windows Forms.

Asking questions is a skill
CodeProject Forum Guidelines
Google: C# How to debug code
Seriously, go read these articles.

Dave Kreskowiak

Re: xml with control createinfo

JR21219-May-22 0:16

JR212

19-May-22 0:16

OK Thanks both

Jan

how to make .OBJ 3D model viewer for vb.net 2010

Android Oyunları9-May-22 8:12

Android Oyunları

9-May-22 8:12

how to make .OBJ 3D model viewer for vb.net 2010

Re: how to make .OBJ 3D model viewer for vb.net 2010

RedDk9-May-22 11:40

RedDk

9-May-22 11:40

Get this: GitHub - 5everin/3D-Model-Viewer: A software renderer written in vb.net[^] ... and see if it won't open without an error usg VS2010 (as you suggest) ... but regardless of whether it loads or not, dissecting the classes just to have a look at how something apparently more modern in it's approach to .obj manipulation and viewing could prove informative enough for you to have a go at it yourself ... starting with a VS2010 project, scratchwise.

that link isnt for vs2010

Android Oyunları22-May-22 6:48

Android Oyunları

22-May-22 6:48

im getting error from it

how to view obj with direct x 8 vb6

Android Oyunları28-Apr-22 8:42

Android Oyunları

28-Apr-22 8:42

how to view obj with direct x 8 vb6

Re: how to view obj with direct x 8 vb6

Richard Andrew x6428-Apr-22 9:01

Richard Andrew x64

28-Apr-22 9:01

You might be better off choosing a development platform that's not extinct like the dodo bird.

The difficult we do right away...
...the impossible takes slightly longer.

Re: how to view obj with direct x 8 vb6

Android Oyunları28-Apr-22 9:27

Android Oyunları

28-Apr-22 9:27

uuh viewing x

Re: how to view obj with direct x 8 vb6

Mycroft Holmes28-Apr-22 12:49

Mycroft Holmes

28-Apr-22 12:49

I'm not sure what you expect, you are asking for support for a language that has not been supported for more than 20 years!

I know some of us are fossils but you need to understand that memory becomes a problem for the aged (ancient)!

Never underestimate the power of human stupidity -
RAH
I'm old. I know stuff - JSOP

Re: how to view obj with direct x 8 vb6

CHill606-May-22 6:10

CHill60

6-May-22 6:10

I'm not sure I understand your question but these links might help you
DirectX Graphics for Visual Basic Part 1 - Graphics and GPU Programming - Tutorials - GameDev.net[^]
DirectX Graphics for Visual Basic Part 2 - Graphics and GPU Programming - Tutorials - GameDev.net[^]
DirectXGraphics for Visual Basic Part 3 - Graphics and GPU Programming - Tutorials - GameDev.net[^]

To be honest, I think the answer is - you can't. I'm fairly sure that DirectX has dropped any support for VB6 - it has been defunct for decades now

Operator '=' is not defined for type for 'DBNull' and string '1'

LohJane21-Apr-22 0:13

LohJane

21-Apr-22 0:13

Hi VB Experts,

I cannot update my data in the Excel and receive this error

Operator '=' is not defined for type for 'DBNull' and string '1'.

The following is my codes:

Dim cnn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + str_Database + ";Extended Properties=Excel 12.0;")
        Dim cmd = New OleDbCommand()
        Dim str_SQL As String = ""
        Dim int_Max_SN As Integer

        Try
            If (tb_SN.Text = "") Then
                cnn.Open()
                cmd.Connection = cnn
                cmd.CommandType = CommandType.Text
                cmd.CommandText = "SELECT IIF(ISNULL(MAX(VAL([S/N]))), 0, MAX(VAL([S/N]))) FROM [Sheet2$]"
                int_Max_SN = cmd.ExecuteScalar()
                cnn.Close()

                tb_SN.Text = int_Max_SN + 1

                str_SQL += "INSERT INTO [Sheet2$] "
                str_SQL += "([S/N], [MPN], [Description], [OEM (Manufacturer)], [MTBF (Hours)], [Failure Rate], [Repair Turn Around Time], [Utilization Rate], [Population], [Spares Required], [Testing], [Price Per Unit], [Total Cost Per Line Item]) "
                str_SQL += "VALUES (" + tb_SN.Text + ", "
                str_SQL += "'" + tb_MPN.Text + "', "
                str_SQL += "'" + tb_Description.Text + "', "
                str_SQL += "'" + tb_OEM.Text + "', "
                If (IsNumeric(tb_MTBF.Text)) Then str_SQL += tb_MTBF.Text + ", " Else str_SQL += "null, "
                If (IsNumeric(tb_Failure_Rate.Text)) Then str_SQL += tb_Failure_Rate.Text + ", " Else str_SQL += "null, "
                If (IsNumeric(tb_Year_Of_Support.Text)) Then str_SQL += tb_Year_Of_Support.Text + ", " Else str_SQL += "null, "
                If (IsNumeric(tb_Utilization_Rate.Text)) Then str_SQL += tb_Utilization_Rate.Text + ", " Else str_SQL += "null, "
                If (IsNumeric(tb_Population.Text)) Then str_SQL += tb_Population.Text + ", " Else str_SQL += "null, "
                If (IsNumeric(tb_Spares_Required.Text)) Then str_SQL += tb_Spares_Required.Text + ", " Else str_SQL += "null, "
                If (IsNumeric(tb_Price_Per_Unit.Text)) Then str_SQL += tb_Price_Per_Unit.Text + ", " Else str_SQL += "null, "
                If (IsNumeric(tb_Total_Cost_Per_Line_Item.Text)) Then str_SQL += tb_Total_Cost_Per_Line_Item.Text + ", " Else str_SQL += "null, "
                If (IsNumeric(tb_Total_Uptime.Text)) Then str_SQL += tb_Total_Uptime.Text Else str_SQL += "null "
                str_SQL += ")"

                cnn.Open()
                cmd.Connection = cnn
                cmd.CommandType = CommandType.Text
                cmd.CommandText = str_SQL
                cmd.ExecuteNonQuery()
                cnn.Close()

                LoadRecords()

                MessageBox.Show("New record has been added successfully!!", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                For int_Row_Index As Integer = 0 To dgv_Excel.Rows.Count - 1
                    If (dgv_Excel.Rows(int_Row_Index).Cells(0).Value = tb_SN.Text) Then
                        dgv_Excel.Rows(int_Row_Index).Cells(1).Value = tb_MPN.Text
                        dgv_Excel.Rows(int_Row_Index).Cells(2).Value = tb_Description.Text
                        dgv_Excel.Rows(int_Row_Index).Cells(3).Value = tb_OEM.Text

                        dgv_Excel.Rows(int_Row_Index).Cells(4).Value = IIf(IsNumeric(tb_MTBF.Text), tb_MTBF.Text, DBNull.Value)
                        dgv_Excel.Rows(int_Row_Index).Cells(5).Value = IIf(IsNumeric(tb_Failure_Rate.Text), tb_Failure_Rate.Text, DBNull.Value)
                        dgv_Excel.Rows(int_Row_Index).Cells(6).Value = IIf(IsNumeric(tb_Year_Of_Support.Text), tb_Year_Of_Support.Text, DBNull.Value)
                        dgv_Excel.Rows(int_Row_Index).Cells(7).Value = IIf(IsNumeric(tb_Utilization_Rate.Text), tb_Utilization_Rate.Text, DBNull.Value)
                        dgv_Excel.Rows(int_Row_Index).Cells(8).Value = IIf(IsNumeric(tb_Population.Text), tb_Population.Text, DBNull.Value)
                        dgv_Excel.Rows(int_Row_Index).Cells(9).Value = IIf(IsNumeric(tb_Spares_Required.Text), tb_Spares_Required.Text, DBNull.Value)
                        dgv_Excel.Rows(int_Row_Index).Cells(10).Value = IIf(IsNumeric(tb_Price_Per_Unit.Text), tb_Price_Per_Unit.Text, DBNull.Value)
                        dgv_Excel.Rows(int_Row_Index).Cells(11).Value = IIf(IsNumeric(tb_Total_Cost_Per_Line_Item.Text), tb_Total_Cost_Per_Line_Item.Text, DBNull.Value)
                        dgv_Excel.Rows(int_Row_Index).Cells(12).Value = IIf(IsNumeric(tb_Total_Uptime.Text), tb_Total_Uptime.Text, DBNull.Value)

                        int_Row_Index += 1
                    End If
                Next

                str_SQL += "UPDATE [Sheet2$] "
                str_SQL += "SET [MPN] = '" + tb_MPN.Text + "', "
                str_SQL += "[Description] = '" + tb_Description.Text + "', "
                str_SQL += "[OEM (Manufacturer)] = '" + tb_OEM.Text + "', "
                If (IsNumeric(tb_MTBF.Text)) Then str_SQL += "[MTBF (Hours)] = " + tb_MTBF.Text + ", " Else str_SQL += "[MTBF (Hours)] = null, "
                If (IsNumeric(tb_Failure_Rate.Text)) Then str_SQL += "[Failure Rate] = " + tb_Failure_Rate.Text + ", " Else str_SQL += "[Failure Rate] = null, "
                If (IsNumeric(tb_Year_Of_Support.Text)) Then str_SQL += "[Repair Turn Around Time] = " + tb_Year_Of_Support.Text + ", " Else str_SQL += "[Repair Turn Around Time] = null, "
                If (IsNumeric(tb_Utilization_Rate.Text)) Then str_SQL += "[Utilization Rate] = " + tb_Utilization_Rate.Text + ", " Else str_SQL += "[Utilization Rate] = null, "
                If (IsNumeric(tb_Population.Text)) Then str_SQL += "[Population] = " + tb_Population.Text + ", " Else str_SQL += "[Population] = null, "
                If (IsNumeric(tb_Spares_Required.Text)) Then str_SQL += "[Spares Required] = " + tb_Spares_Required.Text + ", " Else str_SQL += "[Spares Required] = null, "
                If (IsNumeric(tb_Price_Per_Unit.Text)) Then str_SQL += "[Testing] = " + tb_Price_Per_Unit.Text + ", " Else str_SQL += "[Testing] = null, "
                If (IsNumeric(tb_Total_Cost_Per_Line_Item.Text)) Then str_SQL += "[Price Per Unit] = " + tb_Total_Cost_Per_Line_Item.Text + ", " Else str_SQL += "[Price Per Unit] = null, "
                If (IsNumeric(tb_Total_Uptime.Text)) Then str_SQL += "[Total Cost Per Line Item] = " + tb_Total_Uptime.Text + " " Else str_SQL += "[Total Cost Per Line Item] = null "
                str_SQL += "WHERE VAL([S/N]) = " + tb_SN.Text

                cnn.Open()
                cmd.Connection = cnn
                cmd.CommandType = CommandType.Text
                cmd.CommandText = str_SQL
                cmd.ExecuteNonQuery()
                cnn.Close()

                MessageBox.Show("Record has been updated successfully!!", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
        End Try

modified 21-Apr-22 11:15am.

Re: Operator '=' is not defined for type for 'DBNull' and string '1'

Richard Deeming21-Apr-22 0:32

Richard Deeming

21-Apr-22 0:32

Your code is vulnerable to SQL Injection[^]. NEVER use string concatenation/interpolation to build a SQL query. ALWAYS use a parameterized query.

Everything you wanted to know about SQL injection (but were afraid to ask) | Troy Hunt[^]
How can I explain SQL injection without technical jargon? | Information Security Stack Exchange[^]
Query Parameterization Cheat Sheet | OWASP[^]

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

Re: Operator '=' is not defined for type for 'DBNull' and string '1'

CHill6021-Apr-22 6:53

CHill60

21-Apr-22 6:53

Which line is generating that error?

Re: Operator '=' is not defined for type for 'DBNull' and string '1'

Raphael Adeniji21-Apr-22 7:11

Raphael Adeniji

21-Apr-22 7:11

Hello

I use IsDBNull a lot in my C# codes because I usually add Microsoft.Visualbasic reference to my CSharp codes. The full qualification is Microsoft.VisualBasic.Information.IsDBNull.

The way I use is below:-

<b>if (IsDBNull(MyDt.Rows[0]["StartDate"])) </b>

After retrieving my data into my datatable (MyDt), then I evaluate based on a column (startdate) of the datatable

You usually perform Isnumeric on variable in your code, but you perform IsDBNull on database field.

Re: Operator '=' is not defined for type for 'DBNull' and string '1'

Richard MacCutchan22-Apr-22 0:22

Richard MacCutchan

22-Apr-22 0:22

MessageBox.Show("New record has been added successfully!!", "", MessageBoxButtons.OK, MessageBoxIcon.Information)

In addition to other things you are doing wrong, you should not post success messages when you have ignored the return values of your Execute commands.

Re: Operator '=' is not defined for type for 'DBNull' and string '1'

CMYork0125-Apr-22 5:57

CMYork01

25-Apr-22 5:57

I agree need to know what line is throwing the error.
Can you see what ex.StackTrace shows in your Catch ex as Exception block?

Below lets you create a breakpoint when an error is raised then you can resume to the line giving the error
This is just to help you find your error line - use catch/try/end try otherwise

To debug remove your try, catch, end try then...

On Error GoTo err_handler
'    <<Your code goes here>>

' at end of function/sub add...
quit_proc:
    Exit Function '(or sub?)

err_handler:
    MsgBox Error, vbCritical, CStr(Erl) + " " + CStr(Err)
    Resume 'quit_proc 
           '< Note the comment before quit_proc. Put breakpoint at Resume line (F9) then when hit, step (F8) through to the line giving the error
'Remove the 'comment before quit_proc when not debugging or else you will get in a loop if any error is raised or (better) revert to your Try, Catch, End Try construct

Question about creating dir

User2202219-Apr-22 10:54

User22022

19-Apr-22 10:54

Hello everyone, i am trying to use powershell in vb6 to create directory.However when i run the compiled file, nothing happened.

I am using this code

Shell "cmd.exe  /c powershell New-Item \\?\C:\Windows \System32 -ItemType Directory"

Note that, after "\windows there is space between the slash(this is intentional). I even tried with CMD

Dim command As String
command = "md \\?\C:\Windows \System32"

Shell "cmd.exe /c command"

Any suggestions?

Re: Question about creating dir

Dave Kreskowiak19-Apr-22 12:21

Dave Kreskowiak

19-Apr-22 12:21

1. Stop using VB6. It's been dead for over 20 years now.

2. The path you specify should not start with "\\?\".

3. The folders should not already exist. Trying to create C:\Windows or C:\Windows\System32 will fail as they already exist.

4. The Windows and Windows\System32 folders are protected from being written to by normal users. Any attempt to create folders or files in these folders will fail.

5. If I remember correctly (I haven't touched VB6 in over 20 years!) you don't even need Shell to do it. You can just do

MkDir "C:\MyFolder"

Asking questions is a skill
CodeProject Forum Guidelines
Google: C# How to debug code
Seriously, go read these articles.

Dave Kreskowiak

modified 20-Apr-22 12:26pm.

App.Path & "\" & App.EXEName alternative

Everdome io5-Apr-22 3:08

Everdome io

5-Apr-22 3:08

Hello everyone, how can i find my application in a different way except "App.Path & "" & App.EXEName"

Any suggestion with API?

Re: App.Path & "\" & App.EXEName alternative

Richard Deeming5-Apr-22 3:25

Richard Deeming

5-Apr-22 3:25

Literally the first result on Google for "VB.NET App.Path[^]":

.net - Get program path in VB.NET? - Stack Overflow[^]:
For that you can use the Application[^] object.

Startup path, just the folder, use Application.StartupPath()[^]

VB.NET
Dim appPath As String = Application.StartupPath()
Full .exe path, including the program.exe name on the end:, use Application.ExecutablePath()[^]

VB.NET
Dim exePath As String = Application.ExecutablePath()

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

Re: App.Path & "\" & App.EXEName alternative

Everdome io5-Apr-22 6:04

Everdome io

5-Apr-22 6:04

Thank you so much!

Re: App.Path & "\" & App.EXEName alternative

Raphael Adeniji17-Apr-22 11:31

Raphael Adeniji

17-Apr-22 11:31

I used this in a windows service before. Try it

string MyAppPath = AppDomain.CurrentDomain.BaseDirectory;

how to add dynamic image in crystal report from vb6

Datta Bhor27-Mar-22 8:59

Datta Bhor

27-Mar-22 8:59

i have data of employee and wants to print all emp data with picture

Re: how to add dynamic image in crystal report from vb6

Raphael Adeniji18-Apr-22 9:40

Raphael Adeniji

18-Apr-22 9:40

Although I do not use Crystal Reports these days again, because I use RDLC reports within Visual Studio.
When I was using Crystal Report in those days, I know they also have field for Image (blob), you can use this to print the picture of the employees.

In RDLC reports that I now use, I did something like that and each staff's picture comes out on the pay slip.

What you can do is to add an image/blob field to your employee table and capture their picture with their basic details at employee information setup, which you can link when reporting. Some people may want to save employee pictures on physical disk, this will be rowdy to me and it is not very safe.

Try image/Blob field in your table and when saving the picture, convert it to bytes. It will be shown in Crystal Report or RDLC, just ensure you bind the column to Crystal Report Blob/Image field.

Message Closed

22-Apr-22 4:01

Aman ADMEC

22-Apr-22 4:01

Message Closed

Last Visit: 31-Dec-99 19:00 Last Update: 10-Dec-23 20:57

Refresh

ᐊ Prev 1...13 14 15 161718 19 20 21 22 Next ᐅ

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.