ProviderResource.vb

Public Class ProviderResource
    Inherits Databasic.ProviderResource

    Public Overrides Function GetTableColumns(table As String, connection As Databasic.Connection) As Dictionary(Of String, Boolean)
        Dim result As New Dictionary(Of String, Boolean)
        Dim rawData As Dictionary(Of String, String) = Databasic.Statement.Prepare("
				SELECT 
					c.IS_NULLABLE,
					c.COLUMN_NAME
				FROM 
					INFORMATION_SCHEMA.COLUMNS AS c
				WHERE
					c.TABLE_SCHEMA = @database AND
					c.TABLE_NAME = @table
				ORDER BY 
					c.ORDINAL_POSITION
			", connection
        ).FetchAll(New With {
            .database = connection.Provider.Database,
            .table = table
        }).ToDictionary(Of String, String)("COLUMN_NAME")
        Dim columnCouldBenull As Boolean
        For Each item In rawData
            columnCouldBenull = item.Value.ToUpper().IndexOf("NO") = -1
            result.Add(item.Key, columnCouldBenull)
        Next
        Return result
    End Function

    Public Overrides Function GetLastInsertedId(ByRef transaction As Databasic.Transaction, Optional ByRef classMetaDescription As MetaDescription = Nothing) As Object
        Return Databasic.Statement.Prepare("SELECT LAST_INSERT_ID()", transaction).FetchOne().ToInstance(Of Object)()
    End Function

    'Public Overrides Function GetAll(
    '		connection As Databasic.Connection,
    '		columns As String,
    '		table As String,
    '		Optional offset As Int64? = Nothing,
    '		Optional limit As Int64? = Nothing,
    '		Optional orderByStatement As String = ""
    '	) As Databasic.Statement
    '	Dim sql = $"SELECT {columns} FROM {table}"
    '	offset = If(offset, 0)
    '	limit = If(limit, 0)
    '	If limit > 0 Then
    '		sql += If(orderByStatement.Length > 0, " ORDER BY " + orderByStatement, "") +
    '				$" LIMIT {If(limit = 0, "18446744073709551615", limit.ToString())} OFFSET {offset}"
    '	End If
    '	Return Databasic.Statement.Prepare(sql, connection).FetchAll()
    'End Function

    Public Overridable Function GetList(
        conditionSqlStatement As String,
        conditionParams As Object,
        orderBySqlStatement As String,
        offset As Int64?,
        limit As Int64?,
        connectionOrTransaction As Object,
        ByRef classMetaDescription As MetaDescription
    ) As Databasic.Statement
        Dim columns As String = String.Join(",", Databasic.ProviderResource.ColumnsArray(classMetaDescription.ClassType, 0))
        Dim sql As String = $"SELECT {columns} FROM {ActiveRecord.Resource.Table(classMetaDescription)}"
        Dim params As Object = Nothing
        If Not String.IsNullOrEmpty(conditionSqlStatement) Then
            sql += " WHERE " + conditionSqlStatement
            params = conditionParams
        End If
        If Not String.IsNullOrEmpty(orderBySqlStatement) Then
            sql += " ORDER BY " + orderBySqlStatement
        End If
        If offset.HasValue Then
            ' offset a number, but could be 0, limit is unknown
            sql += $" LIMIT {If(Not limit.HasValue, "18446744073709551615", limit.ToString())} OFFSET {offset}"
        ElseIf limit.HasValue And limit > 0 Then
            ' offset is null, limit is a number, but could be 0
            sql += $" LIMIT {limit.ToString()}"
        End If
        Return Databasic.Statement.Prepare(sql, connectionOrTransaction).FetchAll(params)
    End Function

End Class