VBA connect to MySql database

In progress..

VBA current timestamp

	Function timestamp() As String
	timestamp = Format(Now(), "yyyy-MM-dd hh:mm:ss")
	End Function

view raw gistfile1.vb hosted with ❤ by GitHub

Read RecordCount from ADODB.Recordset correctly

Generate Guid in VBA

	Function getGUID() As String
	getGUID = Mid$(CreateObject("Scriptlet.TypeLib").GUID, 2, 36)
	End Function

view raw gistfile1.vb hosted with ❤ by GitHub

How to connect to Sql Server local database file (localDB) with VBA ?

	Sub run()
	Dim conn As ADODB.Connection
	Dim rs As ADODB.Recordset
	Dim sqlStr As String
	Dim dbFilePath As String
	Dim dbName As String
	dbName = "DbInjectorsCatalog"
	dbFilePath = "C:\Users\marcinchyl\Desktop\Marcin2\Projects\InjectorsCatalog\Admin\DbInjectorsCatalog.mdf"
	connStr = "Driver={SQL Server native Client 11.0};Server=(LocalDB)\v11.0;AttachDBFileName=" & dbFilePath & ";Database=" & dbName & ";Trusted_Connection=Yes"
	sqlStr = "Select * from Injectors"
	Set conn = New ADODB.Connection
	conn.ConnectionString = connStr
	conn.Open
	Set rs = conn.Execute(sqlStr)
	Do While Not rs.EOF
	Debug.Print rs!Number
	rs.MoveNext
	Loop
	rs.Close
	Set rs = Nothing
	End Sub

view raw gistfile1.vb hosted with ❤ by GitHub