I am trying to run following code ( converted to .exe ) in wine v7.0 on Ubuntu 18.04 but it is not working as per expectation. I am not able to connect to database using following code.
Code: Select all
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton btnCnn
Caption = "Connect"
Height = 375
Left = 1170
TabIndex = 0
Top = 1380
Width = 1695
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub btnCnn_Click()
Dim dscn As New ADODB.Connection
Dim str As String
On Error GoTo ErrCnn
dscn.Open "PROVIDER =sqloledb;UID=sa;PWD=password;Initial Catalog = ReplicationStore;DATA SOURCE=source;Persist Security Info=True"
''Set db = DBEngine.Workspaces(0).OpenDatabase("dbsourcename", , "DSN=dbsourcename;UID=MyUID;PWD=Mypassw")
'define recd as record set of table and data
Dim recd As New ADODB.Recordset
recd.Open "select top 3 USERID from [user] where GroupID='SUPERUSER'", dscn, adOpenKeyset, adLockOptimistic
While Not recd.EOF
List1.AddItem recd!C_details
recd.MoveNext
Wend
recd.Close
dscn.Close
ErrCnn:
str = Err.Description
MsgBox (str)
Exit Sub
End Sub
on UI
Code: Select all
Runtime error '430' class does not support Automation or does not support expected interface
Code: Select all
0068:err:vulkan:wine_vk_init Failed to load libvulkan.so.1.
0024:fixme:scrrun:filesys_QueryInterface Unsupported interface {7fd52380-4e07-101b-ae2d-08002b2ec713}
0024:fixme:scrrun:filesys_QueryInterface Unsupported interface {37d84f60-42cb-11ce-8135-00aa004bb851}
0024:fixme:msado15:msadocf_QueryInterface interface {b196b28f-bab4-101a-b69c-00aa00341d07} not implemented
0024:fixme:imm:ImeSetActiveContext (0x265d20, 1): stub
0024:fixme:imm:ImmReleaseContext (0001006E, 00265D20): stub
0068:fixme:imm:ImeSetActiveContext (0x4b4d20, 0): stub
0068:fixme:imm:ImmReleaseContext (00010020, 004B4D20): stub
0024:fixme:variant:get_date_format ignoring flags 12
0024:fixme:olepicture:OleLoadPictureEx (01688FEC,13814,0,{7bf80980-bf32-101a-8bbb-00aa00300cab},x=0,y=0,f=0,0021F944), partially implemented.
0024:fixme:olepicture:OLEPictureImpl_SaveAsFile (00266170)->(002AFDF0, 0, 00000000), hacked stub.