%%%-------------------------------------------------------------------
%%% @author <yunnet>
%%% @copyright (C) 2013,
%%% @doc
%%%
%%% @end
%%% Created : 12 Oct 2013 by <yunnet>
%%%-------------------------------------------------------------------
-module(odbcQuery).
-module(odbcQuery).
-compile(export_all).
start() ->
odbc:start().
find() ->
{ok, Dv} = odbc:connect("Driver={SQL Server}; Server=192.168.1.18;Port=1433;Database=EtBaseData;Uid=sa;Pwd=sa;", []),
Sqltext = "select id, name from Pub_User;",
Dataset = odbc:sql_query(Dv, Sqltext),
{ok, S} = file:open("c:\Pub_User.txt", [write]),
{_, Fields, List} = Dataset,
io:format(S, "~p~n", [Fields]),
[io:format(S, "~p, ~p ~n",[A, B]) || {A, B} <- List],
file:close(S).
